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Preface 


The  purpose  of  this  study  was  to  demonstrate  the  feasibility  of 
using  an  expert  system  to  build  a  decision  aid  for  a  C3  operator. 

The  completed  system  actually  performs  the  simulated  tasks  of  the 
strategic  missile  warning  officer  and  was  turned  over  to  the 
Aerospace  Medical  Research  Laboratory  for  further  development  and 
testing.  This  project  demonstrates  an  architecture  and  explanation 
capability  that  is  applicable  to  many  expert  systems,  that  can  and 
should  assist  human  operators  by  letting  the  machine  do  what  it  does 
best . 

I  have  a  great  personal  interest  in  the  field  of  expert 
systems,  and  although  they  are  not  the  panacea  to  every  current 
computational  problem,  they  will  be  making  a  significant 
technological  impact  in  the  years  to  come. 

I  wish  to  express  my  thanks  to  Captain  Steven  K.  Rogers,  my 
advisor,  for  his  encouragement  and  advice  in  this  project  and 
Captain  Stephen  E.  Cross  for  his  instruction  in  the  field  of 
Artificial  Intelligence.  I  would  also  like  to  thank  Mr.  Don  Monk  of 
the  Aerospace  Medical  Research  Laboratory  for  providing  me  the 
support  and  facilities  to  properly  perform  this  work,  and  Mr.  Kurt 
Mayrand  of  the  Systems  Research  Laboratory  for  his  invaluable 
assistance  on  the  Xerox  1108.  Finally,  I  wish  to  thank  my  wife  Susan 
for  her  support  and  understanding  through  the  nine  long  months  of 
this  project. 


Daniel  L.  Tobat 
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Abstract 


The  growing  complexity  and  quantity  of  information  used  in 
Command,  Control  and  Communications  (C3)  networks  makes  it  essential 
to  reduce  the  workload  on  the  operators  of  these  networks.  The 
SENTINEL  project  uses  the  Artificial  Intelligence  concept  of  an 
expert  system  to  produce  a  decision  aid  for  the  strategic  Missile 
Warning  Officer,  using  a  simulation  of  a  C3  network  that  involves 
multiple  missile  launches  and  up  to  20  countries.  In  this  research, 
a  blackboard  model  expert  system  using  rule  bases  and  object 
oriented  programming  techniques  was  developed  to  permit  SENTINEL  to 
offer  several  layers  of  explanation.  SENTINEL  analyzes  patterns  and 
causes  of  reported  events  into  higher  level  yet  less  precise  forms 
to  provide  the  upper  layer  of  explanation.  SENTINEL  deals  with 
uncertainty  by  using  the  statistical  concepts  of  feature  sets  and 
decision  thresholding.  The  feature  sets  represent  the  essential 
characteristics  of  a  launch  event  and  are  evaluated  to  see  how  well 
they  fit  a  particular  hypothesis.  The  decision  threshold  used  to 
select  an  interpretation  is  determined  by  appraising  the  distance 
from  each  hypothesis,  as  well  as  by  previous  events.  This  project 
demonstrates  the  feasibility  of  building  expert  system  decision  aids 
for  C3  operators  by  using  specialized  explanation  capabilities,  and 
reasoning  with  uncertainty  in  a  more  statistically  conventional  way. 


AN  EXPERT  SYSTEM  DECISION  AID  FOR  A  COMMAND, 


CONTROL  AND  COMMUNICATIONS  OPERATOR 


I .  Introduction 

At  the  heart  of  many  of  today's  military  systems  is  a  command, 
control  and  communications  (C3)  network.  For  such  diverse  systems  as 
the  Airborne  Warning  and  Control  System  (AWACS),  the  North  American 
Aerospace  Defense  Command  (NORAD)  and  some  of  the  systems  proposed 
for  the  Strategic  Defense  Initiative,  a  vast  flood  of  information 
about  enemy  activity  on  the  ground,  in  the  air  and  throughout  the 
electromagnetic  spectrum  will  be  collected,  transmitted,  analyzed 
and  acted  upon  through  C3  networks.  Just  as  the  C3  networks  permit 
quicker  and  more  effective  responses,  the  consequences  of  mistakes 
and  failures  in  the  systems  and  their  operators  have  multiplied. 

Although  information  processing  and  data  automation  are  heavily 
used  to  collect,  transmit  and  display  C3  data,  the  key  decisions  and 
analysis  of  the  data  are  in  the  hands  of  a  few  highly  trained 
operators.  These  operators  are  still  subject  to  human  frailties,  and 
few  attempts  have  been  made  to  help  them  in  arriving  at  decisions. 
This  situation  is  quite  understandable  given  the  difficulty  of 
decision  making  and  the  need  to  keep  weapons  under  tight  control.  In 
view  of  the  growing  complexity  and  quantity  of  the  information  used 
in  C3  networks,  it  becomes  essential  to  improve  the  command  and 
control  of  military  forces  by  aiding  the  performance  of  the  C3 


operator . 


The  field  of  Artificial  Intelligence  by  the  use  of  an  "expert 
system,"  offers  the  opportunity  to  build  a  decison  aid  which  would 
assist  the  C3  operator  in  performing  his  task.  Expert  systems  are 


computer  programs  that  are  designed  to  represent  and  apply 
specialized  knowledge  in  a  narrow  field  of  expertise  (14:3).  Such  a 
decision  aid  could  increase  warning  times  and  improve  control  of 
military  forces  during  a  highly  dynamic  situation  where  humans  would 
be  fatigued  and  begin  making  mistakes. 

Background 

Rather  than  building  a  general  decision  aid  for  any  C3  network, 
a  specific  C3  operator  task  and  environment  was  selected.  The  C3 
network  used  as  a  model  for  this  study  is  the  Simulated  C3  Operator 
Performance  Evaluation  (SIMCOPE)  developed  by  the  Harry  G.  Armstrong 
Aerospace  Medical  Research  Laboratory  (AAMRL)  at  Wright-Patterson 
AFB,  Ohio.  SIMCOPE  was  completed  in  February  1984  and  models  the 
task  of  a  Strategic  Missile  Warning  Officer  (MWO)  in  a  fictional 
scenario.  Basically  the  operator  must  acknowledge  and  appropriately 
respond  to  messages  concerning  sensor  status,  reported  launch 
indications  and  intelligence  conditions.  Based  upon  this  information 
and  his  own  training,  the  SIMCOPE  Missile  Warning  Officer  must 
decide  whether  transpiring  events  represent  a  hostile  or  test  event, 
and  subjectively  assess  the  probability  of  his  judgements  being 
correct.  SIMCOPE  has  been  used  by  the  AAMRL  to  test  how  subjects 
respond  to  different  display  formats  and  to  varying  stress  levels  in 
performing  tasks  similar  to  the  ones  an  actual  MWO  would  have  to 


make.  The  SIMCOPE  simlulation  has  been  viewed  by  several  members  of 
NORAD  who  felt  it  was  fairly  realistic  (11). 

Numerous  expert  system  computer  programs  have  been  built  since 
the  mid  1970's  in  such  diverse  fields  as  medical  diagnosing, 
computer  configuration  and  geological  prospecting.  Expert  systems 
employ  up  to  thousands  of  IF-THEN  rules  to  symbolically  process 
information  and  make  inferences,  and  are  characterized  by  their 
capability  of  explaining  their  reasoning  process  and  being  able  to 
deal  with  uncertainty.  The  task  of  the  expert  system  builder  is  to 
construct  a  program  that  can  represent  and  reason  with  the  knowledge 
of  a  domain  expert.  These  programs  take  a  considerable  amount  of 
time  to  develop  and  require  extensive  and  continous  validation  and 
modification.  See  Appendix  A  for  a  further  description  of  expert 
systems. 

Problem 

Building  a  decision  aid  for  SIMCOPE  involves  trying  to  solve  two 
distinct  problems:  to  build  an  aid  that  helps  the  operator  overcome 
inherent  human  bias  and  also  to  overcome  the  limitations  of 
conventional  computer  programs  which  do  not  easily  provide  the 
capability  of  a  decision  aid.  The  SIMCOPE  operator,  like  any  other 
human  operator  is  subject  to  various  biases  in  decision  making  which 
can  cloud  his  perception  and  result  in  an  improper  analysis  and 
judgement  of  the  situation  at  hand.  Andrew  P.  Sage  enumerates  these 
biases  into  25  separate  categories.  Among  the  most  applicable  for  a 
C3  operator  are  the  following: 


O-. 

V.V' 


u 


A) .  Adjustment  and  Anchoring:  a  difficulty  that  arises  out  of 
excessive  data  and  information.  To  reduce  the  mental  effort 
required,  the  operator  selects  a  particular  chain  of  thought  as  an 
anchor,  and  then  attempts  to  incorporate  the  rest  of  the  data  into 
the  same  mold,  resulting  in  a  flawed  analysis. 

B) .  Availability:  The  operator  uses  only  readily  available 
information  and  ignores  other  data.  An  event  is  believed  to  be 
highly  probable  if  it  is  easy  for  the  operator  to  recall  similar 
episodes. 

C) .  Data  Saturation:  The  operator  reaches  a  premature 
conclusion  on  too  small  a  sample  of  information  and  will  stop  the 
acquisition  of  further  data  prematurely. 

D) .  Conservatism:  the  failure  to  revise  estimates  based  on 
receipt  of  new  contradictory  information.  This  is  also  related  to 
the  data  saturation  bias. 

E)  .  Desire  for  Self-Fulfilling  Prophecies:  This  is  a  form  of 
selective  perception  where  the  operator  values  a  certain 
interpretation  or  outcome  and  only  analyzes  the  information  which 
supports  this  conclusion. 

F) .  Ease  of  Recall:  Events  that  can  be  recalled  easily  are 
given  more  weight  in  decision  making  than  events  that  are  difficult 
to  recall. 

G)  .  Expectations:  Operators  will  attach  higher  validity  to 
information  that  confirms  their  previous  beliefs.  The  presence  of 
large  amounts  of  information  makes  it  easier  to  selectively  ignore 
nonconf irfting  evidence  and  thus  prove  anything  one  wants  to  prove  (i9:647). 
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The  presence  of  stress  or  fatigue  may  of  course  substantially 
increase  the  probability  of  these  biases  ocurring.  Having 
established  that  C3  operators  are  indeed  prone  to  biases  which  could 
adversely  affect  their  judgements  in  this  important  task,  one  may 
wonder  why  conventional  programming  methods  are  not  used  within  the 
context  of  the  SIMCOPE  simulation  to  assist  the  operator.  The  answer 
to  that  question  is  to  be  found  in  the  SIMCOPE  Instruction  Manual 
in  the  section  entitled  "Recommendations  for  Making  Judgements"  the 
manual  instructs  aspiring  SIMCOPE  operators  that: 


These  judgements  are  left  for  you  to  decide  either  because  the 
computer  cannot  be  instructed  or  expected  to  make  such  decisions. 

The  computer  cannot  be  instructed  if  the  process  for  making  the 
judgement  is  incompletely  described  or  includes  factors  that  the  a 
machine  will  not  know.  The  computer  cannot  be  expected  to  make 
judgements  about  intention  or  motivation  .  .  .  The  judgement  of 
calling  an  act  hostile  or  a  threat  is  not  something  one  wants  to 
entrust  to  a  blind,  mechanical  process.  The  consequences  of  error  in 
this  case  are  too  serious  to  allow  a  ft '  i  _.  automated  decision 
process  (1:75). 

By  using  the  techniques  of  Artificial  Intelligence,  the 
objections  based  above  on  conventional  programming  methods  can  be 
overcome  to  provide  an  objective,  helpful,  but  not  fully  automated 
decision  process.  While  many  of  the  allegations  above  are  true  for 
conventional  methods  of  computer  programming,  part  of  the  reason  for 
the  increasing  popularity  and  use  of  expert  systems  is  that  they  do 
provide  the  ability  to  make  decisions  and  handle  uncertainty  by 
symbolically  processing  information.  The  central  problem  is  to  build 
an  objective  decision  aid  that  can  assist  the  human  operator  by  not 
falling  prey  to  subjective  biases  and  can  make  judgements  and  deal 
with  uncertainty  in  a  logical  way. 
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Ob  jectives 

The  objective  of  this  project  will  be  to  build  a  decision  aid 
that  can  assist  the  C3  operator  in  making  judgements  by  being  an 
independent  "bench  mark"  to  insure  that  factors  have  not  been 
forgotten  or  that  subjective  human  bias  has  not  interfered  with  the 
decisions.  By  being  able  to  recall  all  available  information,  the 
decision  aid  will  produce  the  same  result  each  time  given  the  same 
inputs,  and  will  not  be  prone  to  fatigue,  stress  or  subjective  bias. 
The  objective  here  is  not  to  replace  the  human  operator.  Instead, 
the  goal  is  to  implement  the  principal  task  of  computer  aided 
support  which  has  been  described  as  "augmenting  human  capabilities 
in  need  of  augmentation,  while  not  diminishing  abilities  in  those 
areas  in  which  human  capabilities  exceed  those  of  the  computer" 
(19:645).  A  true  decison  aid  permits  the  human  operator  to  accept  or 
disregard  its  advice  and  will  assist  him  most  during  peak  periods 
when  the  MWO  is  more  prone  to  making  mistakes  in  recalling  events 
and  in  analyzing  the  situation. 

The  objective  of  the  SIMCOPE  decision  aid,  henceforth  referred 
to  as  SENTINEL,  will  be  to  prove  the  concept  of  a  decision  aid  for 
the  MWO  rather  than  provide  an  operational  model  that  is  ready  to  be 
fielded.  Before  SENTINEL  is  fielded  an  extensive  verification 
program  would  have  to  be  established  and  the  system  would  need  to  be 
optimized  for  speed  and  accuracy.  Minimizing  the  processing  time  is 
essential,  since  a  decision  aid  will  be  most  needed  during  hectic 
situations  when  intelligence  and  sensor  reports  will  arrive  with 


increasing  frequency.  However,  for  the  purpose  of  this  project  it  is 


necessary  to  show  only  that  SENTINEL  is  computationally  feasible  to 
implement . 


The  characteristics  of  SENTINEL  are  that  of  a  event  driven 
decision  aid  that  uses  a  blackboard  model  and  works  by  forward 
chaining.  The  decision  to  use  a  forward  chaining  rule  based 
architecture  for  SENTINEL  was  influenced  by  other  expert  systems 
that  perform  on-line  real  time  interpretation  of  multiple  sensors 
monitoring  a  machine  process  (12:158).  SENTINEL  must  also  be  able  to 
deal  with  the  uncertainty  inherent  in  a  process  where  knowledge  of 
enemy  forces  and  intentions  is  incomplete.  It  must  also  be  able  to 
explain  to  the  C3  operator  how  it  arrived  at  a  conclusion  by  showing 
what  factors  were  considered  in  reaching  that  outcome.  This  process 
will  hopefully  remind  the  operator  of  certain  factors  that  may  have 
•  been  overlooked.  An  explanation  capability  is  of  great  importance  in 

getting  operators  to  feel  confident  about  the  system  and  to  help 
them  recognize  the  limitations  of  SENTINEL. 

In  spite  of  the  increasing  number  and  type  of  expert  systems  in 
use,  building  one  is  a  very  time  consuming  task.  Several  factors 
made  it  possible  to  complete  SENTINEL  in  the  time  alloted  for  this 
effort.  Instead  of  trying  to  develop  an  expert  system  that  does  the 
job  of  an  actual  Missile  Warning  Officer,  SIMCOPE  has  already 
conveniently  quantified  and  somewhat  abstracted  the  job  of  the  MWO. 
Also,  the  use  of  expert  systems  building  tool  software  that  aids  in 
the  building  of  rule  bases  was  used  to  cut  down  on  the  development 
time  required. 


This  study  will  only  use  the  SIMSCOPE  simulation  of  a  missile 


warning  officer's  tasks  as  a  model  for  the  decision  aid.  Other 
types  of  C3  operator's  tasks  will  not  be  considered,  although  much 
of  this  study  is  applicable  to  other  C3  tasks  as  well.  Certainly  the 
C3  operators  on  an  AWACS  during  a  pitched  aerial  battle  or  the 
operators  for  the  some  of  the  systems  associated  with  the  proposed 
Strategic  Defense  Initiative  could  benefit  from  a  similar  decision 
aid.  A  full  fledged  expert  system  that  functions  as  a  decision  aid 
for  the  MWO  in  the  SIMCOPE  simulation  is  developed.  This  expert 
system  will  not  be  optimized  for  speed  or  accuracy. 

Assumptions 

This  study  will  be  subject  to  the  limitations  of  the  SIMSCOPE 
scenario  as  to  how  well  it  models  the  task  of  an  actual  MWO. 
SIMSCOPE' s  main  limitation  is  that  only  a  fixed  number  of  possible 
intelligence  and  sensor  reports  can  be  generated.  This  is  a  valid 
assumption  if  the  intelligence  and  sensor  data  is  computer  processed 
before  it  reaches  the  strategic  missile  warning  officer.  SIMCOPE 
also  has  a  physical  limitation  in  that  it  portrays  a  3  dimensional 
problem,  the  one  of  assessing  the  threat  posed  by  incoming  ballistic 
missiles  in  a  2  dimensional  space  both  on  its  display  screens  and  in 
the  information  provided  by  satellite  reports.  The  only  information 
provided  by  the  satellites  in  SIMCOPE  concerning  the  missile 
trajectory  are  the  launch  coordinates  and  a  heading.  More 
information  on  SIMCOPE  messages  can  be  found  in  Appendix  B. 


Materials  and  Eauioment 


This  project  was  developed  in  the  Command,  Control  and 
Communications  Operator  Performance  Engineering  (COPE)  Facility, 
under  the  auspices  of  the  Human  Engineering  Division  of  the  Harry  G. 
Armstrong  Aerospace  Medical  Research  Laboratory  (AAMRL)  at  Wright- 
Patterson  AFB,  Ohio.  The  hardware  used  was  a  Xerox  1108  "Dandelion” 
LISP  machine  with  40  megabytes  of  hard  disk  storage  space.  The 
machine  software  used  was  Xerox's  "Harmony"  version  of  the 
INTERLISP-D  language.  The  "Buttress"  release  of  the  LOOPS  Expert 
System  Building  Tool,  also  developed  by  Xerox,  was  used  to  construct 
the  rule  bases  used  in  this  project.  Further  information  about  the 
use  of  LOOPS  can  be  found  in  Appendix  C.  The  SIMCOPE  simulation  was 
developed  by  several  members  of  the  Human  Engineering  Division  of 
the  AAMRL  during  1983.  SIMCOPE  runs  on  a  PDP-11  and  was  programmed 
in  FORTRAN.  The  only  existing  documentation  of  the  SIMCOPE 
simulation  is  the  "SIMCOPE  Instructions  Manual"  which  was  written  by 
the  AlphaScience  corporation  in  February,  1984  (1). 


The  approach  used  to  develop  SENTINEL  differs  greatly  from  the 
conventional  process  used  to  build  expert  systems.  In  the 
conventional  expert  system  building  process,  the  "knowledge 
engineer"  interviews  a  "domain  expert"  in  an  effort  to  capture  his 
specialized  knowledge  into  IF-THEN  rules.  In  the  case  of  SIMCOPE,  no 
experts  actually  exist  since  it  is  only  a  simulation.  However,  since 


SIMCOPE  is  an  evaluation  tool  for  the  MWO  task  it  presents  an  ideal 


starting  point  for  demonstrating  the  feasibility  of  a  decision  aid 
for  the  MWO.  Also,  some  researchers  such  as  Gary  Klein,  object  to 
the  technique  of  using  domain  experts  as  a  source  of  rule  based 
knowledge . 

We  cannot  trust  the  verbal  reports  of  subject  matter  experts  on 
how  they  perform  tasks.  They  will  tell  us  about  the  rule-following 
portion  of  their  behavoir.  Our  questions  about  what  they  are  doing 
often  seem  to  be  attempts  to  discover  the  rules  they  are  following, 
so  they  try  to  imagine  plausible  rules  to  satisfy  us.  There  is  no 
reason  to  suspect  that  an  expert  will  come  up  with  better  rule- 
governed  explanations  for  behavior  than  an  engineer,  or  than  a 
psychologist  (15:301). 

The  approach  used  for  capturing  the  rule  based  knowledge  used 
in  SENTINEL  was  to  use  the  "judgement"  and  "operating  procedures" 
sections  from  the  SIMCOPE  instruction  manual  as  the  initial 
"expert."  These  procedures  or  heuristics  clearly  delineated  the 
difference  between  threatening,  hostile  events  and  test  events,  but 
were  not  very  useful  for  events  that  fell  between  these  extremes.  To 
deal  with  these  "gray"  events,  SENTINEL's  knowledge  was  gradually 
modified  using  common  sense  and  facts  of  the  scenario  in  a  manner 
that  was  consistent  with  prior  SIMCOPE  procedures.  Thus,  SENTINEL 
was  first  built  to  handle  the  obvious,  clearly  separated  cases,  and 
then  cautiously  and  slowly  extended  by  incorporating  almost  any 
imaginable  SIMCOPE  event. 

SENTINEL  also  differs  from  conventional  expert  systems  in  the 
way  it  interacts  with  the  user.  In  many  expert  systems  the  user 
enters  into  a  dialogue  with  the  system  which  poses  questions  to 
which  the  user  responds  in  an  almost  "natural"  language.  Because 


SENTINEL  is  built  around  SIMCOPE,  it  operates  the  way  the  simulation 
operator  does;  by  obtaining  information  about  launch  events  from 
messages  provided  by  SIMCOPE  rather  than  from  a  dialogue  with  the 
operator,  and  by  providing  answers  to  the  formatted  reports  which 
the  SIMCOPE  operators  respond  to. 

In  view  of  the  departures  from  the  conventional  expert  system 
framework,  it  is  necessary  to  address  the  question  "Is  SENTINEL 
really  an  expert  system?"  SENTINEL  is  an  expert  system  because  it 
captures  the  specialized  knowledge  of  the  SIMCOPE  operator  in  the 
narrow  domain  of  the  strategic  missile  warning  task.  SENTINEL  also 
has  many  of  the  qualities  that  distinguish  expert  systems:  it 
reasons  with  uncertainty,  deals  with  search,  can  explain  its 
reasoning  and  is  capable  of  revising  its  conclusions  in  the  presence 
of  conflicting  information.  These  hallmarks  along  with  the  use  and 
development  of  rule  bases  and  objects  constitute  evidence  that 
SENTINEL  is  indeed  an  expert  system.  In  view  of  the  tremendous 
amount  of  change  and  advances  in  the  field  of  expert  systems  as  well 
as  Artificial  Intelligence  in  general,  it  is  necessary  to  quickly 
summarize  the  current  state  of  technology  in  respect  to  how  it 
applies  to  SENTINEL. 

Summary  of  Current  Knowledge 

Expert  system  computer  programs  have  been  in  use  for  many  years 


in  such  diverse  tasks  as  mineral  prospecting,  (PROSPECTOR:  Duda, 
1979)  diagnosing  bacterial  infections  (MYCIN:  Shortliffe,  1976)  and 
configurifig  computers  (Rl:  McDermott,  1982).  The  first  half  of  the 


V# 


decade  of  the  1980's  has  witnessed  a  virtual  explosion  in  the  number 
and  type  of  expert  systems  described  in  the  general  Artificial 
Intelligence  literature.  In  spite  of  the  vast  number  of  existing 
expert  systems,  and  although  the  need  for  expert  systems  in  C3  is 
well  recognized  (13:1),  the  application  of  a  decision  aid  for  a  C3 
operator  that  is  used  for  prediction  and  strategic  military 
forecasting  appears  to  be  unique.  Two  systems  that  are  similar  to 
SENTINEL  is  some  respects  are  an  expert  system  for  indications  and 
warning  analysis  developed  by  ESL  Incorporated  and  AIRPLAN,  which 
features  decision  making  in  time  critical  situations. 

The  Indications  and  Warning  Analysis  (IWA)  expert  system 
assists  a  military  intelligence  analyst  by  assimilating  incoming 
intelligence  reports  and  predicting  where  and  when  an  armed  conflict 
may  erupt  next.  It  utilizes  two  separate  blackboards  along  with 
three  levels  of  abstraction:  specific,  higher  level  and  very 
general  states.  An  interesting  feature  of  the  IWA  expert  system  is 
that  it  can  run  both  forward  in  time  for  prediction  and  back  in  time 
to  fill  in  past  gaps  in  its  knowledge  when  new  information  becomes 
available  (16:260).  SENTINEL  differs  from  this  system  in  that  its 
intelligence  input  is  much  more  limited  and  deals  with  a  time  period 
of  minutes  instead  of  weeks.  Running  backwards  could  be  beneficial 
for  SENTINEL  as  a  type  of  computer  learning,  but  that  has  very 
little  direct  impact  on  the  task  of  aiding  the  MWO. 

The  AIRPLAN  system  is  concerned  with  managing  the  launch  and 
recovery  of  aircraft  aboard  a  carrier,  which  entails  making 
decision^  in  a  time  critical  situation.  It  does  this  by  updating  its 
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display  when  a  report  is  received  and  then  determines  the  available 
options  which  are  characterized  as  good  or  bad.  If  AIRPLAN  does  not 
have  a  backlog  of  unanalyzed  reports,  it  continues  its  analysis  to 
come  up  with  a  set  of  recommendations  (17:234).  SENTINEL  does  a 
similar  sequence  of  processing  reports,  but  only  for  the  purpose  of 
interpreting  data  rather  than  developing  plans.  However,  the  most 
significant  difference  between  the  two  systems  is  that  the  SENTINEL 
task  entails  a  great  deal  of  reasoning  with  uncertainty.  To 
understand  this  portion  of  SENTINEL's  operation  it  is  necessary  to 
examine  how  current  expert  systems  deal  with  uncertainty. 

One  widely  used  approach  to  handling  uncertainty  in  rule  based 
systems  such  as  MYCIN  has  been  the  use  of  certainty  factors.  As 
described  by  Patrick  H.  Winston,  certainty  factors  are  numbers 
between  1  and  0  that  are  intended  to  reflect  how  certain  a  fact  is, 
with  0  indicating  a  definitely  false  fact  and  1  a  definitely  true 
fact.  These  certainty  factors  are  propagated  across  rules  in 
inference  networks  through  various  methods  to  derive  an  output 
certainty  factor.  Some  of  the  simplest  procedures  that  combine  the 
certainty  factors  of  various  antecedent  facts  into  a  deduced  fact 
are  taking  the  certainty  of  the  weakest  or  strongest  argument 
supporting  it,  or  else  multiplying  the  output  by  an  "attenuation 
factor"  (23:188).  For  example;  in  a  rule  of  the  form: 

If  A  and  B  and  C  THEN  D, 

where  A  has  a  certainty  factor  of  .6,  B  one  of  .5  and  C  one  of  .3 
could  result  in  a  certainty  factor  of  .6  by  taking  the  strongest 
argument  or  .3  by  taking  the  weakest.  More  elaborate  methods  for 
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using  certainty  factors  exist  but  most  of  them  have  little  or  no 
support  from  elementary  probability  theory.  In  order  to  deal  with 
uncertainty  in  a  manner  consistent  with  probablity  theory,  various 
Bayesian  methods  of  representing  and  combining  uncertainty 
information  for  expert  systems  have  been  developed.  One  of  the  most 
well  known  Bayesian  methods  of  computing  confidences  in  rule  based 
systems  is  the  Dempster-Schafer  theory  which  permits  the  assignment 
of  probability  mass  to  general  propositions  constructed  from  other 
propositions  (8:9). 

Difficulties  exist  with  these  two  main  schools  of  thought  in 
reasoning  with  uncertainty.  The  problem  with  certainty  factors  is 
that  with  a  single  value  one  has  no  information  about  its  precision, 
and  when  evidence  for  and  against  a  proposition  is  combined  into  a 
single  number,  one  cannot  distinguish  between  disbelief  and  lack  of 
evidence.  The  difficulty  with  Bayesian  methods  is  that  use  of  Bayes 
theorem  requires  masses  of  data  to  determine  what  type  of 
statistical  relationship  exists  between  all  the  factors  involved.  In 
almost  all  current  systems,  subjective  judgements  are  used  in  place 
of  this  data  which  render  their  results  prone  to  the  risks  of 
inaccuracy  and  inconsistency  (6:18).  In  the  case  of  SENTINEL,  one 
does  not  wish  to  use  the  subjectiveness  of  certainty  factors  to 
simply  replace  human  biases  with  statistical  bias.  As  for  Bayesian 
methods,  the  nature  of  the  factors  used  in  SENTINEL  do  not  permit 
either  strict  statistical  independence  or  dependence  to  be  shown. 

For  example,  in  cases  where  intelligence  reports  indicate  an 
impending  attack  which  are  then  corroborated  by  other  indications, 


the  intelligence  reports  are  statistically  dependent.  However,  the 
case  where  intelligence  does  not  indicate  an  attack  but  other 
factors  suggest  an  attack,  implies  statistical  independence. 

Clearly,  SENTINEL  must  use  a  different  way  of  dealing  with 
uncertainty  and  must  be  a  fairly  unique  expert  system  because  no 
other  expert  system  has  been  built  before  for  this  task. 

Overview 

For  purposes  of  analysis,  SENTINEL  can  be  divided  into  the  five 
major  blocks  pictured  in  figure  1.  The  METASCHEDULER  receives  all 
SIMCOPE  messages  and  routes  them  accordingly.  The  SCENARIO 
REPRESENTATION  block  gives  SENTINEL  the  same  information  which  is 
already  available  to  the  MWO  when  he  looks  at  the  SIMCOPE  graphical 
display,  and  is  triggered  upon  receipt  of  the  first  launch 
indication,  which  is  a  satellite  report  labeled  ADS-1.  The  First 
Pass  Messages  include  the  processing  of  SYS  system  status  messages, 
INT  intelligence  reports  as  well  as  the  completion  of  ADS-1 
processing.  The  Second  Pass  Satellite  Report  represents  the 
processing  of  the  second  launch  indication,  which  is  labeled  as  ADS- 
2.  The  Third  Pass  Radar  Report  represents  the  processing  performed 
upon  receipt  of  the  third  and  final  launch  indication.  Note  that  the 
events  themselves  are  propagated  separately  from  the  SIMCOPE  message 
routing. 

The  following  discussion  of  the  SENTINEL  decision  aid  largely 
follows  the  chronological  sequence  of  its  development.  The  next 
chapter  will  describe  the  METASCHEDULER  and  SCENARIO  REPRESENTATION 


blocks,  while  Chapter  III  will  discuss  the  First  Pass  Message 
processing.  Chapter  IV  will  cover  the  Second  Pass  case  and  will 
describe  how  dealing  with  uncertainty  is  accomplished.  Chapter  V 
will  cover  the  Third  Pass  and  the  conclusions  and  recommendations. 
Appendix  A,  "A  Basic  Description  of  Expert  Systems,"  is  recommended 
for  the  reader  unfamiliar  with  knowledge  based  systems.  Appendix  B, 
"Outline  of  SIMCOPE  Operations,"  is  background  material  for  those 
readers  who  do  not  have  access  to  the  SIMCOPE  instruction  manual. 
Appendix  C,  "Evaluation  and  Use  of  LOOPS,"  illustrates  how  the  LOOPS 
expert  system  building  tool  software  operates  and  describes  its 
limitations.  Finally,  Appendix  D  "Miscellaneous  Functions  and 
Program  Listings,"  covers  SENTINEL  features  not  discussed  elsewhere 
and  presents  all  the  documented  rule  bases  and  LISP  functions  which 
make  up  SENTINEL. 


II.  METASCHEDULER  and  SCENARIO  REPRESENTATION 


Format 

To  standardize  the  format  used  for  the  remainder  of  this 
discussion,  the  following  rules  will  apply.  The  major  blocks  which 
describe  a  combination  of  functions  and  rule  sets  will  consist  of 
all  capital  letters  such  as  METASCHEDULER.  The  actual  functions, 
rule  sets  and  LISP  variables  which  comprise  SENTINEL  are  written  as 
they  appear  in  the  LISP  programming  for  SENTINEL.  Therefore,  LISP 
functions,  property  lists  and  variables  all  appear  in  capital 
letters  such  as  SENSORNUMBER  or  SCHEDULER.  The  rule  sets  are  a 
combination  of  capital  and  uncapitalized  letters  such  as  BoardVoting 
or  MIXEDConf idence.  The  blackboards,  or  objects  used  in  SENTINEL  all 
end  in  "Board"  such  as  INTELBoard  or  DETECTBoard.  The  actors  in 
SENTINEL  will  also  be  fully  capitalized  such  as  LAUNCHSITE  or 
TARGET.  The  first  major  block,  METASCHEDULER  will  demonstrate  the 
use  of  functions,  actors,  rule  sets  and  LISP  variables. 

METASCHEDULER 

The  METASCHEDULER  block  consists  of  a  function  by  the  same 
name  and  a  rule  set  labeled  MSGHandler.  The  input  to  METASCHEDULER 
varies  from  all  the  other  functions  in  SENTINEL  by  being  any  SIMCOPE 
message.  METASCHEDULER's  task  is  to  set  the  common  parts  of  each 
incoming  SIMCOPE  message  to  a  variable.  For  example,  a  typical 
SIMCOPE  ADS-I  report  is  in  this  form: 

((CWC  (ads  ((SI  142913)  6)  -30)  14  (143410)  9)) 
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The  CWC  indicates  the  destination  of  the  message,  in  this  case  the 
Command  Warning  Center,  the  ADS  reveals  this  is  a  satellite  report 
and  the  SI  indicates  this  is  a  first  pass  message  from  the  southern 
ADS  satellite.  METASCHEDULER  then  would  set  CWC  to  be  the  LISP 
variable  named  DESTINATION  and  SI  to  be  the  SENSORNUMBER .  All  the 
SIMCOPE  messages  share  the  same  format  for  the  first  three  elements, 
but  the  structure  of  the  rest  of  the  messages  varies  considerably. 
The  only  modification  to  the  actual  form  of  the  SIMCOPE  messages  as 
they  appear  to  the  operator  is  the  substitution  of  parentheses  for 
slashes  to  make  the  LISP  manipulation  of  this  form  easier.  Further 
details  about  the  structure  of  each  type  of  message  and  what  all  the 
elements  are  can  be  found  in  Appendix  B. 

Once  METASCHEDULER  has  set  the  common  variables,  MSGHandler 
actually  routes  the  messages  thorugh  SENTINEL.  Using  such  variables 
as  SENSORNUMBER,  MSGHandler  uses  7  rules  to  provide  an  output  to  the 
user  and  direct  the  SIMCOPE  message  to  the  appropriate  function  for 
processing.  For  example,  if  an  incorrect  destination  is  received, 
MSGHandler  advises  the  user  of  this  ocurrence  and  asks  if  the 
operator  wishes  to  go  ahead  and  process  the  message  anyway.  Before 
going  on  to  discuss  the  details  of  how  this  processing  is  achieved, 
one  must  understand  how  the  SCENARIO  REPRESENTATION  captures  the 
information  presented  to  the  Missile  Warning  Officer  since  this 
determines  the  structre  of  almost  all  the  other  functions  in 


SENTINEL. 


SCENARIO  REPRESENTATION 

The  objective  of  the  SCENARIO  REPRESENTATION  of  SENTINEL  is  to 
accurately  convey  to  the  expert  system  the  same  type  of  information 
the  MWO  receives  by  looking  at  the  SIMCOPE  display,  which  is  shown 
in  figure  2.  Depicted  on  a  geographic  grid,  lies  the  country  of  THEM 
on  the  right  hand  side  of  the  map,  and  on  the  left  the  country  of 
US.  All  of  the  known  or  suspected  launch  sites  in  the  country  of 
THEM  are  represented  by  triangles  or  a  Star  of  David  which  are 
explained  in  the  table  underneath  the  map.  The  possible  targets  in 
the  county  of  US  are  represented  by  large  or  small  dots  with 
alphabetic  labels  such  as  "RVN"  by  the  major  cities.  The  solid 
circles  located  on  the  East  coast  of  US  and  numbered  1  through  7  are 
the  radar  coverage  provided  by  Barrier  Site  Surveillance  (BSS) 
sites.  The  two  large  dotted  circles  which  cover  the  country  of  THEM 
represent  the  satellite  coverage  provided  by  Aerospace  Defense 
Satellites  (ADS)  South  and  North.  The  two  types  of  reports  provided 
by  these  satellites  and  by  the  BSS  site  are  most  of  the  "events" 
which  are  communicated  to  the  MWO. 

In  addition  to  receiving  and  responding  to  the  ADS  reports,  the 
MWO  receives  a  great  deal  of  information  from  the  visual  depiction 
of  a  launch  event.  Figure  3  shows  what  can  be  seen  shortly  after 
receiving  the  second  report  on  the  same  launch  event  (referred  to  as 
an  ADS-2  report)  from  one  of  the  two  satellites.  The  dotted  lines 
indicate  the  wedge  shaped  "fan"  which  represents  the  detected 
heading  of  the  missile  along  with  a  possible  variation  of  plus  or 
minus  5  flegrees.  One  of  the  tasks  of  the  MWO  is  to  mentally  extend 
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Figure  3*  The  SIMCOPE  Map  Showing  a  Missile  Launch  (1:3). 

(Detected  Missile  Heading  is  the  Center  Line.) 
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this  wedge  into  the  country  of  US  and  predict  which  BSS  site  will  be 
able  to  detect  the  missile  and  to  predict  which  targets  are 
threatened.  In  figure  3  for  example,  it  appears  that  BSS  site  #7  at 
the  extreme  southern  end  of  US  is  likely  to  detect  the  incoming 
missile,  and  that  the  cluster  of  targets  surrounding  the  capital  in 
the  southwestern  peninsula  of  US  could  be  struck.  Armed  with  this 
information,  the  MWO  must  be  able  to  predict  whether  a  hostile 
attack  or  a  test  launch  is  underway  and  provide  a  subjective 
assessment  of  his  degree  of  confidence  in  this  prediction. 

There  are  two  other  types  of  reports  produced  by  SIMCOPE  which 
do  not  deal  directly  with  a  launch  event.  The  INT  intelligence 
reports  may  indicate  that  the  country  of  THEM  is  believed  to  be 
planning  a  test  launch  or  preparing  an  attack.  The  SYS  system 
reports  indicate  any  outage  problems  due  to  sabotage  or  failure  at  a 
sensor,  and  when  it  might  be  expected  to  regain  full  capability.  SYS 
and  INT  reports  do  not  follow  a  general  sequence  as  the  launch 
events  do;  however  the  majority  of  the  reports  deal  with  launch 
events. 

The  objective  of  the  SCENARIO  REPRESENTATION  is  to  permit 
SENTINEL  to  capture  and  represent  the  information  available  to  the 
MWO,  given  the  map  and  access  to  the  ADS  reports.  SENTINEL  must  be 
able  to  also  perform  the  tasks  the  MWO  does  visually  by  predicting 
which  BSS  site  will  detect  the  launch  event  and  what  the  possible 
targets  of  the  launch  event  are.  Both  SENTINEL  and  the  MWO  can 
profit  from  knowing  that  the  launch  reports  follow  a  specified 
pattern.  The  sequence  of  events  explained  below  tracks  a  single 


missile  launching  from  the  initial  to  the  final  report  which  is 
shown  to  the  MWO. 


Sequence  of  Events 

The  usual  sequence  of  events  following  a  missile  launch  in  the 
SIMCOPE  simulation  consist  of  receiving  two  distinct  satellite 
reports  and  a  BSS  (radar)  report.  The  first  indication  of  a  launch 
event  will  be  the  ADS-1  satellite  report,  which  yields  the  latitude 
and  longitude  coordinates  of  the  launch  event  and  the  reported 
missile  infrared  intensity.  This  intensity  reading  can  be  sufficient 
in  some  instances  to  determine  what  type  of  missile  has  been 
launched.  Missiles  fall  into  two  categories:  TYPE1  missiles  have  a 
short  range  and  are  armed  with  a  single  warhead  with  limited 
maneuvering  capabilities,  while  the  TYPE2  corresponds  to  a  longer 
ranged,  multiple  warhead  missile  whose  warheads  can  maneuver  freely. 
The  second  indication  of  a  launch  event  will  be  the  confirmation  of 
the  first  report  by  the  ADS-2  satellite  report  which  yields  further 
information  about  the  missile  such  as  its  heading.  Finally,  a  BSS 
report  will  be  sent  by  the  BSS  site  that  detects  the  missile  which 
further  confirms  the  type  and  heading  of  the  missile.  In  order  to 
automate  SIMCOPE  it  is  necessary  to  give  SENTINEL  the  ability  to 
determine  which  targets  are  threatened  by  the  launch  and  which  BSS 
site  will  detect  the  missile.  Since  the  type  of  information 
available  to  SENTINEL  consists  of  geographic  coordinates  and  a 
heading,  this  strongly  suggests  a  polar  type  of  representation. 


Justification  for  a  Polar  Representation 


As  shown  in  figure  4  a  polar  representation  consists  of  a  set  of 
vectors  originating  from  the  launchsite  which  are  labeled  by  a  range 
and  a  heading  to  various  targets.  This  representation  is  an 
efficient  way  of  generating  headings  to  different  targets  and 
comparing  them  to  the  reported  heading  of  the  missile.  Knowing  the 
range  and  headings  to  various  targets  enables  SENTINEL  to  determine 
what  specific  target  the  missile  could  strike.  For  example,  suppose 
a  TYPE1  missile  has  been  detected  with  a  heading  of  160  degrees 
whose  maximum  range  is  800  kilometers.  As  shown  in  figure  4,  target 
A  with  a  heading  of  153  degrees  lies  closest  to  the  reported 
heading,  but  it  can  be  ruled  out  since  the  distance  to  target  A 
exceeds  the  maximum  range  of  the  missile.  Target  B  on  the  other  hand 
is  within  the  range  of  the  missile  though  its  heading  deviates 
further.  Target  C  can  be  ruled  out  completely  because  of  its  extreme 
deviation  from  the  reported  missile  heading  though  it  lies  well 
within  the  range  of  the  TYPE1  missile.  In  order  to  compute  a  polar 
representation,  the  latitude  and  longitude  from  each  target  and 
launch  site  needs  to  be  accessed  rapidly  when  needed.  The  basic 
mechanism  for  storing  this  information  will  be  a  property  list  which 
is  discussed  in  the  following  section. 

The  Actors 

Actors  are  the  sensors,  launch  sites  and  targets  that  are  the 


subject  of  SIMC0PE.  Information  for  each  of  these  three  types  of 
actors  can  be  stored  in  a  "property  list"  under  the  particular  name 


Figure  4.  Polar  Representation  of  Three  Targets  From  One  Launchsite 


of  a  site  such  as  TGT1.  The  PUTPROP  and  GETPROP  LISP  commands 


permit  the  effective  retrieval  of  this  data  at  any  time.  The  object 
oriented  capabilities  of  LOOPS  were  not  used  for  the  representation 
of  the  actors  because  of  the  inability  of  LOOPS  to  utilize  variables 
as  an  address,  as  described  in  Appendix  C.  Because  LOOPS  objects 
would  not  have  permitted  multiple  unknown  launchsite  actors, 
property  lists  which  did  not  have  this  limitation  were  used. 

The  simplest  type  of  actor  is  the  TARGETs.  Each  TARGET  is 
represented  by  a  property  list  with  the  four  attributes  shown  in 
figure  5.  The  latitude  and  longitude  measurements  come  from  the 
detail  map  and  are  accurate  to  within  half  a  degree.  A  listing  of 
all  the  sites  and  their  attributes  can  be  found  in  Appendix  B.  The 
TYPE  label  identifies  the  target  as  a  city,  a  C3  node  or  a  military 
or  industrial  facility.  There  are  a  total  of  33  targets  in  the 
SIMCOPE  scenario,  and  they  are  grouped  into  five  different  lists. 

The  high  value  target  list  is  composed  of  the  capital  of  US  and  the 
C3  warning  network,  while  the  other  four  lists  group  targets 
regionally  in  horizontal  bands  from  north  to  south.  For  example, 
target  area  one  covers  all  the  targets  to  the  north  of  24  degrees  of 
latitude  and  which  are  covered  by  BSS  sites  one  and  two. 

The  SENSORs  are  represented  by  a  property  list  with  the  six 
attributes  shown  in  figure  5.  The  labels  which  differ  from  the 
TARGET'S  property  list  are  the  RANGE  and  the  CAPABILITY.  Assuming 
circular  radar  coverage,  the  RANGE  represents  the  maximum  radius  of 
the  BSS  site's  radar.  The  identical  size  of  the  circles  found  in  the 
Detail  M3p  represent  a  range  of  approximately  185  kilometers.  Making 


the  range  of  coverage  a  variable  rather  than  a  constant  permits 
equipment  malfunctions  or  local  weather  variations  to  affect  the 
radar.  However,  the  area  of  coverage  is  still  assumed  to  be 
circular.  Finally,  the  CAPABILITY  label  permits  the  capability  of 
the  BSS  or  Satellite  sensor  to  be  identified  as  FULL,  PARTIAL  or 
ZERO  as  indicated  by  the  latest  SYS  system  report.  The  CAPABILITY 
status  of  the  SENSOR  will  bear  heavily  on  the  reliability  of  the 
information  reported  by  that  sensor. 

The  LAUNCHSITEs  are  the  most  complex  type  of  actor  in  SENTINEL 
because  they  have  seven  attributes  and  they  are  the  key  to  the 
remainder  of  SENTINEL  processing.  Besides  the  usual  labels, 
LAUNCHSITEs  also  have  a  TYPE  label  which  corresponds  to  whether  they 
are  a  known  or  a  suspected  TYPE1  or  TYPE2  launch  site  as  previously 
seen  as  a  table  on  Figure  1.  The  BSSTAG  contains  the  maximum  and 
minimum  headings  that  a  missile  could  take  from  a  particular  launch 
site  and  still  be  detected  by  a  particular  BSS  radar  site.  The 
HIVALTAG  represents  the  headings  a  missile  would  have  to  take  to 
strike  the  capital  of  US  or  a  C3  node.  Finally,  FANCALL  consists  of 
the  polar  representation  to  all  the  other  (non  high  value  or  BSS 
site)  targets.  The  polar  representations  for  FANTAG,  BSSTAG  and 
HIVALTAG  could  certainly  be  computed  beforehand  for  a  multitude  of 
launch  sites  and  stored  explicitly.  However,  this  "brute  force" 
approach  has  definite  drawbacks  if  the  number  of  targets  is 
increased  to  a  few  hundred  and  if  the  missile  launchers  are  mobile 
and  can  fire  from  almost  any  location.  Therefore,  it  is  appropriate 
to  be  abl*e  to  compute  the  polar  representation  for  a  previously 


unknown  launch  site  when  the  ADS-1  report  is  received.  This  is  the 
objective  of  the  LISP  functions  described  below. 


Block  Diagram  of  the  SCENARIO  REPRESENTATION 

As  shown  in  figure  6,  five  functions  comprise  the  SCENARIO 
REPRESENTATION  and  the  function  which  supports  all  this  processing 
is  POLAR.  Given  a  set  of  launch  and  target  coordinates  in  terms  of 
latitude  and  longitude,  POLAR  returns  the  range  and  heading  from  the 
launch  site  to  the  target.  Given  a  list  of  targets,  FAN  calls  on 
POLAR  repeatedly  to  compose  an  association  list,  whose  elements 
consist  of  the  target  name,  heading  and  range.  HIVALCALL  uses  FAN  to 
compute  the  range  and  heading  to  all  the  high  value  targets.  The 
high  value  target  list  consists  of  the  capital  of  US  and  the  C3 
nodes  of  the  strategic  warning  network  of  which  the  MWO  is  a  part. 
BSSCALL  uses  POLAR  directly  to  compute  the  maximum  and  minimum 
headings  from  a  launchsite  that  could  be  detected  by  a  specific  BSS 
site.  Finally  FAN  is  used  to  compute  the  range  and  heading  from  the 
launch  site  to  the  rest  of  the  33  targets.  SCHEDULER  invokes  all  the 
other  functions  upon  receipt  of  an  ADS-1  report  of  a  launch  event. 
Thus,  the  polar  representation  is  only  computed  when  a  launch 
indication  is  received,  which  permits  a  launch  emanating  from  any 
location  to  be  processed,  rather  than  just  being  limited  to  sites 
whose  geographic  coordinates  are  known.  Having  covered  the  overall 
SCENARIO  REPRESENTATION  the  following  is  a  detailed  discussion  of 
each  separate  function. 
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POLAR 


The  POLAR  function  enables  the  computation  of  a  polar 
representation.  Its  inputs  are  the  launch  coordinates  (latitude, 
longitude)  and  target  coordinates  (latitude,  longitude).  It  is 
invoked  by  using  (POLAR  '(23  34)  '(30  20))  where  the  first  pair 
indicates  that  the  target  has  a  latitude  of  23  degrees,  and  the 
second  pair  is  the  coordinates  of  the  launch  site.  As  shown  in 
figure  7,  POLAR  uses  trigonometric  principles  to  solve  for  the 
arctan  of  the  angle  (heading)  and  the  hypoteneuse  (range).  Because 
the  targets  could  lie  in  any  direction  away  from  the  launch  site,  it 
is  necessary  to  correct  the  angle  to  a  geographic  heading  by  using 
the  correction  factors  in  each  quadrant  shown  in  figure  7.  The 
special  cases  of  90,  180,  270  and  360  degrees  need  to  be  handled 
separately  because  either  the  divisor  or  the  dividend  will  be  zero 
which  can  represent  either  180  or  360  degrees.  Therefore,  it  is 
handled  as  a  special  case.  Since  the  hypoteneuse  or  range  will 
originally  be  expressed  in  degrees,  it  is  necessary  to  convert  the 
distance  to  kilometers  by  making  each  degree  of  longitude  equal  to 
111  kilometers.  Because  the  length  of  a  degree  of  longitude  varies 
as  one  moves  towards  the  polar  regions,  this  is  the  standard 
approximation  which  is  valid  at  the  equator.  This  limitation  is 
common  to  maps  which  attempt  to  represent  a  three  dimensional  object 
in  only  two  dimensions.  Although  POLAR  can  compute  a  polar 
representation  for  one  site,  it  is  usually  necessary  to  compute  the 
representation  for  an  entire  list  of  targets,  which  is  what  FAN 


Figure* 7.  Detail  of  POLAR's  Computations  and  Heading  Correction  Factors. 
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FAN  and  HIVALCALL 


Given  a  list  of  targets  and  a  launch  site,  FAN  calls  on  POLAR 
for  each  individual  target,  and  produces  an  association  list  of  the 
computed  range  and  headings.  The  target  lists  that  might  be  given  to 
FAN  are  the  High  Value  Target  List  and  the  four  Target  Area  Lists. 
Values  for  the  latitude  and  longitude  of  the  targets  and  the  launch 
site  are  retrieved  from  the  property  lists  of  these  actors.  The  list 
produced  by  FAN  has  a  label  for  its  first  element  and  looks  like 
this: 


((TARGET  HEADING  RANGE) 

(TGT1  345  1047) 

(TGT2  215  1756)  ...  and  so  on.) 

FAN  is  invoked  by  typing  in  (FAN  ' LAUNCHSITE) ,  and  it  will  compute 
the  range  and  heading  from  the  given  launchsite  to  all  the  targets 
in  the  list  TARGETLIST.  Therefore,  it  is  necessary  to  reset 
TARGETLIST  to  the  appropriate  list  each  time,  FAN  is  invoked  by  both 
HIVALCALL  and  SCHEDULER.  HIVALCALL  sets  the  TARGETLIST  to  the  high 
value  target  list,  calls  on  FAN  and  embeds  the  resulting  association 
list  on  the  HIVALTAG  label  on  the  property  list  of  the  LAUNCHSITE 
actor.  Note  that  HIVALCALL  is  the  only  polar  representation  that  is 
previously  computed  and  stored  for  all  the  known  or  suspected 
LAUNCHSITEs.  HIVALCALL  determines  the  HIVALTAG  of  that  LAUNCHSITE 
actor's  property  list,  only  when  the  launch  site  is  unknown  or  upon 
initialization  of  the  decision  aid.  FAN  is  also  invoked  directly  by 
SCHEDULER  to  complete  the  polar  representation  from  the  launchsite 
to  all  the  remaining  (non  high  value)  targets.  The  result  is  stored 


under  the  FANCALL  label  of  the  LAUNCHSITE's  property  list. 


BSSCALL 

One  of  the  challenges  in  representing  the  information  for 
SENTINEL  is  capturing  the  circular  radar  coverage  presented  by  a  BSS 
site  in  a  polar  representation.  To  effectively  use  the  polar 
representation,  it  was  necessary  to  represent  by  just  a  few  points 
the  circular  area  of  coverage  provided  by  radar.  The  first  attempts 
to  represent  the  BSS  coverage  were  by  the  "two  point"  methods,  shown 
at  the  top  of  figure  8.  The  top  circle  represents  a  BSS  site  covered 
by  the  inscribing  the  largest  size  rectangle  inside  the  circle  that 
determines  a  northeast  and  southeast  corner  that  would  cover  most  of 
the  headings  that  could  be  detected  by  that  site.  The  bottom  circle 
represents  using  a  fixed  angle  technique  to  come  up  with  the 
corners.  The  problem  with  these  techniques  is  shown  by  the  missile 
track  with  an  especially  "sharp"  heading  of  120  degrees  that  could 
easily  penetrate  both  BSS  sites  without  falling  into  the  range  of 
headings  that  would  be  detected  by  either  of  the  "two  point" 
methods. 

A  better  approach  is  to  use  four  points  as  shown  at  the  bottom 
of  figure  8.  Given  a  range  and  a  center  point  for  the  BSS  site,  the 
latitude  and  longitude  of  the  four  points  representing  the  furthest 
reach  of  the  circle  along  all  four  directions  is  computed.  BSSCALL 
is  invoked  by  (BSSCALL  ’LAUNCHSITE) ,  and  given  the  property  lists  of 
the  LAUNCHSITE  and  the  BSS  sites  (to  include  RANGE!),  BSSCALL  uses 


Two  Point  Methods 


POLAR  directly  to  compute  the  heading  to  all  four  points  on  the  BSS 
circle.  Originally,  BSSCALL  called  on  FAN  but  this  proved  cumbersome 
since  the  range  information  is  redundant  and  the  TARGETLIST  needed 
to  be  reset  four  times.  The  output  of  BSSCALL  at  this  point  looks 
like  this: 

((LAUNCHSITE  NORTH  SOUTH  EAST  WEST) 

(BSS#1  152  180  170  160) 

(BSS#2  143  165  158  150)...  and  so  on  through  BSS#7) 

It  becomes  apparent  that  only  the  maximum  and  minimum  headings 
need  be  stored  without  losing  any  information.  In  the  above  example, 
BSS  site#l  could  detect  any  missile  from  the  given  launch  site  that 
has  a  heading  between  152  degrees  (the  minimum)  and  180  degrees  (the 
maximum).  Thus  the  output  of  BSSCALL  is  simplified  to: 

((LAUNCHSITE  MAX  MIN) 

(BSS#1  180  152)  (BSS#2  165  143)  ...  and  so  on.) 

After  this  association  list  is  completed,  it  is  attached  to  the 
LAUNCHSITE  actor  under  the  BSSTAG  label.  Having  computed  the  polar 
representation  for  all  the  targets  and  BSS  sites,  it  is  now 
necessary  to  describe  how  these  functions  are  invoked. 

SCHEDULER 

The  input  to  SCHEDULER  differs  from  the  other  functions  by  being 
the  "raw"  ADS-1  report  generated  by  SIMC0PE.  SCHEDULER  first  picks 
out  the  reported  latitude  and  longitude  of  the  launch  event.  For 
example,  if  ADS-1  is: 


((CWC  (ADS  ((SI  142718)  8)  -29)  +13)  (142915)  8)) 


Then  a  launch  was  detected  at  29  degrees  of  latitude  and  13  degrees 
of  longitude.  The  first  thing  SCHEDULER  does  is  to  compare  the 
reported  latitude  and  longitude  to  the  limits  of  that  satellite's 
region  of  coverage.  Thus  if  the  southern  ADS  coverage  is  normally 
limited  to  latitudes  of  30  degrees  or  greater,  then  SCHEDULER  would 
announce  this  fact  to  the  operator  and  permit  him  to  stop  the 
processing  of  this  report.  This  feature  permits  the  operator  to 
continue  processing  if  the  satellite  coverage  region  deviates  from 
the  normal  or  to  stop  if  he  suspects  the  report  is  erroneous. 

Having  insured  that  the  reporting  satellite  is  normally  in  a 
position  to  record  this  particular  launch  event,  SCHEDULER  then 
compares  the  reported  coordinates  to  those  of  all  the  known  launch 
sites.  If  a  match  is  made,  SCHEDULER  announces  the  match,  retrieves 
the  previously  computed  HIVALTAG  from  the  property  list  of  the 
LAUNCHSITE,  and  then  calls  on  BSSCALL  and  FAN  to  compute  additional 
association  lists  and  embeds  them  on  the  property  list  of  the 
LAUNCHSITE,  If  no  match  is  found,  SCHEDULER  creates  a  new  property 
list  for  the  previously  unknown  launch  site  and  computes  the 
HIVALTAG  as  well  by  calling  on  HIVALCALL  and  then  repeats  the  steps 
for  the  known  launch  site  case. 

After  having  processed  thorugh  the  SCENARIO  REPRESENTATION,  one 
can  now  examine  the  property  list  of  the  LAUNCHSITE  actor. 

Therefore,  for  the  previously  unknown  launch  site  number  15  the 
response  to  the  command  (GETPROPLIST  'LS15)  would  be: 


LABEL 


VALUE 


COMMENT 


(LONG 

LAT 

HIVALTAG 


BSSTAG 


FANCALL 


23.5  (*  Reported  Longitude) 

18  (*  Reported  Latitude) 

( ( LS 1 5  HEADING  RANGE)  (TGT1  143  1110) 

(TGT2  212  1027)  and  so  on  through  TGT6) 

((LSI 5  MAXPT  MINPT)  (BSS#1  134  145) 

(BSS#2  140  165)  and  so  on  through  BSS#7) 

( ( LS 1 5  HEADING  RANGE)  (TGT7  109  1369) 

(TGT8  205  2088)  and  so  on  through  TGT33) 


I  v* 


One  may  now  consider  the  computational  feasibility  of  this 
technique.  Use  of  the  INTERLISP  function  TIME  enabled  measurements 
as  to  how  much  processing  time  was  required  to  fully  compute  the 
polar  representation  for  a  launch  site.  For  the  current 
implementation  of  SENTINEL  and  given  a  previously  undetected  launch 
site,  a  maximum  of  43.6  seconds  of  processing  time  was  required  for 
SCHEDULER  to  call  HIVALCALL,  BSSCALL  and  FAN  for  all  33  targets. 
Since  in  this  case  there  is  a  very  limited  number  of  targets, 
iterating  through  all  the  targets  is  still  largely  a  linear  growth 
function  in  terms  of  computation  time  rather  than  an  exponential 
growth  one.  Although,  this  technique  was  not  used  in  SENTINEL  the 
following  is  proposed  as  a  way  of  limiting  the  computation  of  the 
polar  representation  for  SENTINEL. 


Reduction  of  Computation  Time 

Once  the  BSSTAG  has  been  computed  and  a  reported  heading  for 
the  missile  has  been  detected,  the  following  procedure  can  reduce 
the  amount  of  computation  time  by  only  processing  those  targets 


which  are  likely  to  be  attacked  into  a  polar  representation.  This 
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takes  advantage  of  the  previous  classification  of  all  the  non  high 
value  targets  into  geographic  areas,  as  seen  in  figure  9.  Heuristics 
can  help  reduce  the  computation  time  by  limiting  the  number  of 
targets  that  need  to  be  expressed  into  polar  form.  For  example,  it 
appears  obvious  that  if  a  missile  is  fired  towards  the  northern 
portion  of  US  as  in  launch  site  B  from  figure  9,  it  would  be  a  waste 
of  time  to  compute  the  polar  representation  for  targets  in  the 
southern  portion  of  the  US  that  could  not  possibly  be  the  objective 
of  that  particular  missile.  In  the  case  illustrated  at  the  top, 
launchsite  A  lies  to  the  north  of  the  detecting  BSS  site,  and  polar 
representation  is  limited  to  regions  3  and  the  regions  to  its  north. 
Finally  for  the  "head  on"  case  where  the  missile  heading  is  180 
degrees,  only  the  targets  in  the  area  behind  the  detecting  BSS  site 
need  to  be  computed  into  polar  form.  This  technique  of  limiting  the 
number  of  targets  to  be  expressed  into  polar  form  would  be  useful 
for  "real  world"  problems  which  could  require  hundreds  of  targets 
and  thus  trigger  an  exponential  growth  in  computation  time  that 
could  make  this  representation  unfeasible. 


Launchsite  A 


Target  Area  Two 

- -  •  — -  • 


Launchsite  B 


There  are  five  types  of  messages  in  the  SIMCOPE  simulation:  the 


INT  intelligence  report,  the  SYS  system  status  report,  the  ADS-1 
first  satellite  pass  report,  the  ADS-2  second  pass  satellite  report 
and  the  BSS  radar  site  report.  The  first  pass  messages  which  are 
covered  in  this  chapter  are  the  INT,  SYS  and  ADS-1  messages.  The 
simplest  type  of  first  pass  message  is  the  INT  report. 

Intelligence  Reports 

The  INT  reports  in  SIMCOPE  cover  the  20  fictional  countries  of 
the  SIMCOPE  scenario  and  inform  the  MWO  if  a  given  country  has 
attacked,  formed  an  alliance  with  or  threatened  an  attack  on  another 
country.  The  reports  also  indicate  which  country  originated  the 
report,  its  source  and  the  time  and  date  at  which  the  action  can  be 
expected  to  take  place.  Further  details  on  this  or  any  of  the  other 
messages  can  be  found  in  Appendix  B.  INT  reports  differ  from  the 
other  messages  in  the  SIMCOPE  scenario  because  they  do  not  directly 
affect  any  actors.  In  contrast,  SYS  reports  originate  from  a  sensor 
actor,  while  ADS  reports  correspond  to  a  launch  site  actor.  Although 
INT  reports  are  important,  it  is  not  obvious  how  to  place  the 
information  they  contain  on  a  property  list.  The  complexity  of 
interactions  of  20  countries  made  it  necessary  to  simplify  the 
analysis  of  INT  reports  by  using  a  model  of  the  SIMCOPE  world. 


Intelligence  Model 

ALthough  20  countries  are  used  in  the  SIMC0PE  simulation,  it  is 
somewhat  misleading  since  no  information  is  available  on  any 
countries  except  US  and  THEM.  Indeed,  the  SIMC0PE  map  shows  just 
those  two  countries,  and  it  does  not  seem  overly  simplistic  to  only 
concentrate  on  reports  from  or  about  US  and  THEM.  The  situation  that 
now  results  can  be  modeled  as  follows: 


SOURCE  reports  from  S0URCEC0UNTRY  indicate  that  REPORTEDCOUNTRY  will 
or  will  not  (INTELTYPE)  do  ACTIONZ,  resulting  in  INTELCONDITION . 

SOURCE  can  be  OPEN  indicating  that  it  is  publicly  known 
information  or  INTEL  indicating  it  was  provided  by  an  intelligence 
source  of  some  kind.  S0URCEC0UNTRY  should  usually  be  US,  since  THEM 
is  not  likely  to  provide  US  with  much  information,  and  there  is  no 
way  to  ascertain  the  reliability  of  information  from  the  other  18 
countries.  A  similar  problem  exists  with  REPORTEDCOUNTRY;  if  it  is 
one  of  the  other  18  countries  there  is  no  information  on  how  that 
could  affect  the  MWO  monitoring  of  THEM.  Taking  advantage  of  the 
discrete  nature  of  SIMC0PE  INT  messages,  ACTIONZ  can  be  abstracted 
to  result  in  the  four  following  INTELCONDITION  states: 


TEST:  a  country  has  announced  a  test  launch 

RED:  where  a  country  has  actually  invaded  or  attacked 

YELLOW:  where  a  country  has  threatened  invasion  or  attack 
GREEN:  which  reflects  moves  towards  greater  stability  such  as 
reports  of  surrenders  or  alliances  which  would  tend  to  dampen  the 
possiblilities  of  further  conflict. 


Since  TEST  would  entail  presumably  high  confidence  levels  of  a 
launch  indication  without  being  a  hostile  event  it  is  treated  as  a 


separate  category.  INTELTYPE  reflects  whether  the  INT  report  is  of  a 
positive  type  such  as  "has  surrendered"  versus  the  negative  type  as 
in  "has  not  surrendered."  Heuristics  were  used  to  represent  this 
situation  by  using  a  rule  that  states  that  all  negative  type  reports 
result  in  a  YELLOW  condition  except  for  negative  YELLOW.  In  that 
case,  represented  by  "has  not  threatened  attack"  a  resulting 
condition  of  GREEN  is  more  appropriate.  INTELCONDITION  is  what  the 
SIMCOPE  labels  as  Readiness  States,  and  summarizes  the  overall  state 
of  the  SIMOCPE  world.  The  information  needed  to  represent  the 
information  contained  in  an  INT  message  consists  of  the  foilwing: 

INTELCONDITION  [RED  YELLOW  GREEN  or  TEST] 

INTELTYPE  [Positive  or  Negative] 

SOURCE  [OPEN  or  INTEL] 

REPORTEDCOUNTRY  SOURCECOUNTRY  [One  of  the  20  SIMCOPE  countries] 

Note  that  there  is  no  need  to  represent  the  ACTIONZ  since  that 
information  is  captured  in  the  INTELCONDITION.  Only  the  SOURCE  and 
the  INTELCONDITION  variables  of  the  INT  report  will  be  used  further 
because  of  the  limitation  on  the  MWO's  knowledge  of  the  other  18 
countries,  however  the  INT  report  must  be  shown  to  the  user  and  the 
information  above  needs  to  be  stored  in  a  form  accessible  to  all 
other  SENTINEL  functions. 

Intelligence  Output  and  Information  Storage 

In  SIMCOPE  no  action  is  expected  of  the  MWO  when  an  INT  report 
is  received.  All  that  is  shown  is  the  collection  of  numbers  and 
slashes  which  correspond  to  the  INT  report.  SENTINEL  does  translate 


the  message  for  the  MWO  but  does  not  require  an  acknowledgement  from 
the  MWO.  The  output  shown  to  the  MWO  from  a  typical  INT  report  is  as 
follows : 

INTEL  sources  from  the  country  of  OVERTHERE  reveal  POSITIVE 
indications  of  a  GREEN  condition  for  the  country  of:  US 

Having  displayed  all  the  five  variables  of  the  intelligence 
model  to  the  user  the  question  still  remains  of  how  to  store  this 
data.  INT  reports  should  not  be  attached  to  the  property  list  of  a 
single  actor  since  they  affect  all  of  the  actors  but  placing  them  on 
all  of  the  actors  would  be  awkward.  The  solution  is  to  use  a 
"blackboard"  which  is  a  method  used  in  some  expert  systems  that 
permits  procedures  to  communicate  with  each  other  by  posting 
messages  and  results  on  the  blackboard  (23:140). 

In  this  case,  the  blackboard  created  was  a  LOOPS  object 
entitled  INTELBoard  which  has  the  five  variables  of  the  intelligence 
model  stored  as  instance  variables.  LOOPS  objects  basically  store 
information  in  a  way  that  is  almost  identical  to  a  property  list  and 
are  discussed  further  in  Appendix  C.  The  first  implementation  of 
INTELBoard  resulted  in  the  blackboard  being  updated  each  and  every 
time  an  INT  report  was  recieved.  The  fallacy  of  this  approach  is 
that  an  INT  report  resulting  in  a  RED  condition  could  be  written 
over  and  the  value  of  the  variables  lost  by  a  INT  report  about  US 
that  results  in  a  GREEN  condition.  Therefore,  the  INTELBoard  is 
updated  only  if  the  incoming  INT  report  results  in  a  more  critical 
readiness  state  than  the  one  currently  posted  on  the  INTELBoard 
blackboard.  The  order  used  to  prioritize  the  readiness  states  is 


RED,  TEST,  YELLOW  and  GREEN.  When  an  incoming  INT  report  results  in 
the  same  readiness  state  as  the  one  currently  posted  on  INTELBoard, 
the  INTELBoard  is  updated  for  the  sake  of  recency.  The  output  to  the 
user  is  still  shown  each  time  regardless  of  whether  the  INTELBoard 
is  updated.  Having  completed  the  discussion  of  the  processing  of  INT 
reports  it  is  now  time  to  discuss  the  functions  which  actually 
implement  these  ideas. 


u 


Functions  that  Process  INT  Reports 

As  shown  in  figure  10  there  are  only  three  entities  which 
process  the  INT  message.  The  figure  crowned  by  an  oval  shape 
entitled  INTELBoard  represents  the  blackboard  and  is  not  a  function. 
METASCHEDULER  routes  the  INT  message  directly  to  the  INTELHANDLER 
function.  The  two  remaining  blocks  named  INTELAnalyst  and  Countries 
are  rule  sets  as  denoted  by  the  encircled  RS  to  the  right  of  their 
title.  INTELHANDLER  breaks  down  the  INT  message  into  its  constituent 
parts,  and  calls  on  the  INTELAnalyst  rule  set  to  process  the 
information.  INTELAnalyst  uses  20  rules  to  analyze  the  parts  of  the 
INT  message  and  determines  the  resulting  INTELCONDITION . 

INTELAnalyst  uses  the  Countries  rule  set  to  convert  the  1 
through  20  country  number  supplied  by  the  INT  message  into  the 
actual  name  of  the  country.  For  example,  the  number  17  corresponds 
to  the  country  of  THEM.  Once  the  INT  message  is  processed,  all  the 
S0URCEC0UNTRY  and  REPORTEDCOUNTRY  variables  are  set  to  the  country's 
name  and  not  the  number.  INTELAnalyst  then  displays  the  output  to 
the  user*,  and  determines  through  its  rules  whether  to  update  the 
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INTELBoard  using  the  priorities  described  above.  If  the  value  of  the 
INTELBoard  variables  is  NIL  or  of  a  lower  condition  INTELAnlayst 
updates  the  INTELBoard. 

This  entire  process  could  have  been  implemented  using  one  large 
rule  set  that  would  have  encompassed  all  of  the  functions  described 
above.  This  was  not  done  here  or  in  the  any  of  the  follwing  work  for 
several  reasons.  First  of  all,  the  incompatibility  of  the  scenario 
representation  with  LOOPS  objects  indicated  that  LISP  functions 
would  be  essential  to  SENTINEL.  Second,  it  is  advisable  in  a 
software  research  effort  to  keep  the  functions  and  rule  sets 
compartimentalized  and  small  to  facilitate  troubleshooting  and 
debugging.  Lastly,  many  operations  with  the  SIMCOPE  messages 
involved  decomposing  and  constructing  list  structures  and  property 
lists.  These  operations  could  have  been  incorporated  in  the  rule 
sets  as  one  large  THEN  statement  with  multiple  LISP  commands  but 
this  would  have  obscured  the  structure  and  content  of  the  rule  set. 
Therefore,  a  hybrid  structure  has  been  used;  LISP  functions  have 
been  used  when  extensive  list  manipulation  is  required  and  when  it 
was  advantageous  to  separate  these  commands  from  the  rule  sets,  and 
rule  sets  were  used  to  describe  the  heuristics  and  made  use  of 
fairly  understandable  IF  THEN  constructs  without  being  burdened  with 
an  excessive  amount  of  control  knowledge.  It  must  be  noted  that 
writing  rule  sets  was  a  much  easier  task  than  developing  lengthy 
LISP  functions.  SENTINEL  could  be  converted  to  a  much  "flatter"  non 
hierarchical  structure,  if  required,  by  removing  the  LISP  functions 
or  placing  them  inside  the  rule  sets  and  constructing  larger  rule 


sets.  However,  this  approach  would  render  further  development  of 
SENTINEL  more  difficult  to  accomplish  and  would  increase  the 
computation  time  required.  Having  covered  INT  reports,  the  only 
other  report  which  is  not  tied  to  a  launch  event,  the  SYS  report, 
can  be  discussed. 

The  SYS  System  Status  Reports 

The  SYS  message  is  a  system  status  report  indicating  some  type 
of  malfunction  at  a  sensor  or  a  C3  node  site.  The  message  indicates 
if  a  routine  or  emergency  outage  has  ocurred,  which  site  is 
affected,  when  the  outage  was  reported  and  the  estimated  time  of 
return  to  service.  SYS  also  breaks  down  the  reason  for  the  outage 
into  the  following  categories:  Test,  Maintenance,  Failure,  Sabotage 
and  Unknown.  Lastly,  the  message  reports  if  the  current  capability 
of  the  sensor  is  FULL,  PARTIAL  or  ZERO.  In  contrast  to  the  INT 
reports,  there  is  always  a  subject  actor  property  list  in  which  to 
embed  all  this  information.  There  are  five  variables  that  are  placed 
on  the  property  list  of  the  subject  actor  and  they  fall  into  the 
categories  below: 

CAPABILITY  [FULL,  PARTIAL  or  ZERO] 

REASON  [FAILURE,  TEST,  MAINTENANCE,  SABOTAGE,  or  OTHER] 

RESTORETIME  [reported  time  at  which  sensor  is  restored] 

OUTTIME  [time  at  which  the  outage  occured] 

TYPE  [EMERGENCY  or  ROUTINE] 


In  a  similar  fashion  to  the  way  INTELBoard  was  fashioned  from 
INT  reports,  an  SYSBoard  blackboard  was  created  which  comprised  all 
the  variables  above.  The  SYSBoard  variables  had  to  be  renamed 


because  instance  variables  for  LOOPS  objects  cannot  use  the  same 
names  as  LISP  variables,  such  as  TYPE.  There  is  little  information 
in  the  OUTTIME  variable,  so  instead  SYSBoard  uses  TYPEOFSENSOR  to 
post  whether  an  ADS  satellite,  a  BSS  radar  site  or  a  C3  node  were 
being  affected.  Thus  the  instance  variables  of  the  SYSBoard  are  the 
following,  with  the  property  list  function  they  represent  shown 
inside  the  brackets: 


OUTAGEREASON  [REASON] 

TYPEOFOUTAGE  [TYPE] 

TYPEOFSENSOR  [whether  it  is  BSS,  ADS  or  C3] 

RESTORATIONTIME  [RESTORETIME] 

CAPABILITYOFSENSOR  [CAPABILITY] 


The  SYSBoard  and  the  property  list  of  the  appropriate  sensor  actor 
is  updated  each  time  a  new  SYS  report  is  recieved.  Updating  the 
SYSBoard  on  a  priority  basis  was  instituted  at  first  but  was  not 
pursued  because  of  the  C3  network  analysis  discussed  below.  In  a 
similar  fashion  to  INT  reports,  the  MWO  is  merely  shown  the  SYS 
reports;  no  acknowledgement  is  necessary  or  expected.  Thus  SENTINEL 
once  again  translates  the  SYS  report  and  the  typical  output  to  the 
MWO  is  as  follows: 


SYS  Message  Acknowledged. 

ROUTINE  OUTAGE  Reported  at  :  BSS2 
CAUSE:  TEST 

CURRENT  CAPABILITY  OF  SENSOR:  FULL 
TIME  OF  OUTAGE:  130523 
Restoration  expected  at:  150000 


Although  this  method  so  far  has  accomplished  its  primary  mission  of 
reporting  and  recording  changes  to  sensor  status,  C3  nodes  are 
important  enough  to  warrant  further  consideration.  Since  the  MWO  is 


part  of  the  C3  network  it  is  essential  that  he  know  what  the  status 
and  capability  of  the  C3  network  is  at  all  times,  not  just  on  a  site 
by  site  approach.  Thus,  a  model  for  the  C3  network  used  in  SIMCOPE 
needs  to  be  developed. 


C3  Network  Model  and  Analysis 

Excluding  the  actual  sensors,  five  sites  as  illustrated  in 
figure  11  constitute  the  SIMCOPE  C3  network.  The  Command  Defense 
Center  or  CDC  is  the  controlling  headquarters  of  this  network  and  is 
the  place  to  which  the  MWO  sends  his  reports.  The  Command  Warning 
Center  or  CWC  is  where  the  MWO  is  located  and  where  surveillance 
system  data  is  interpreted  and  forwarded  to  the  CDC.  The  ADS  Ground 
Support  Facility  (ADSGSF)  and  the  BSS  Ground  Support  Facility 
(BSSGSF)  are  the  control  centers  for  the  ADS  satellites  and  BSS 
radar  sites  respectively.  Finally,  the  Back  Up  Routing  Facility  or 
BRF  permits  a  second  communication  path  to  the  entire  network.  The 
SIMCOPE  manual  does  not  discuss  the  C3  network  any  further,  but  for 
purposes  of  analysis  of  this  project,  a  primary  and  secondary  path 
of  control  and  communications  was  assumed  for  the  entire  network. 

The  primary  path  is  shown  as  a  solid  line  in  figure  11  and 
constitutes  the  path  that  would  normally  be  followed.  The  secondary 
path  is  shown  as  a  dashed  line  and  shows  the  alternate  lines  of 
communication  should  the  primary  ones  be  impaired.  To  analyze  the  C3 
network  connectivity  in  the  system,  four  paths  were  established  from 
the  ADSGSF  to  the  CDC  and  from  the  BSSGSF  to  the  CDC,  as  listed  in 
figure  11. 
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Figure  11.  C3  Network  Path  Diagram  and  Listing 


The  status  of  these  paths  fall  into  the  states  of  FULL,  PARTIAL 
or  ZERO.  If  the  capability  of  one  or  more  of  the  sites  in  a  path  is 
less  than  FULL,  then  the  status  of  that  path  cannot  be  FULL.  If  one 
or  more  sites  are  PARTIAL  and  no  sites  are  ZERO  than  that  path  is 
set  to  PARTIAL.  If  any  site  in  the  path  has  a  capability  of  ZERO 
then  the  status  of  that  path  is  ZERO.  These  values  are  then  stored 
in  the  SYSBoard  as  instance  variables  AFULL  (for  number  of  FULL 
paths  to  ADSGSF)  and  similarly  APARITAL,  AZERO  and  BFULL  (for  BSSGSF 
paths),  BPARTIAL  and  BZERO.  Besides  keeping  track  of  the  status  of 
the  C3  network  paths,  it  might  also  be  useful  to  keep  track  of  the 
number  of  sensor  sites  that  are  PARTIAL  or  ZERO  status.  Out  of  7  BSS 
sites  and  2  ADS  satellites,  the  number  that  are  at  a  PARTIAL 
capability  is  recorded  in  the  SYSBoard  under  AFFSENSOR.  Those  with  a 
ZERO  capability  under  OUTSENSOR.  Care  was  taken  to  insure  that  a 
sensor  that  sent  out  two  separate  reports  was  not  counted  twice. 

Thus  if  BSS  site  3  first  sent  out  a  SYS  report  listing  it  with  a 
PARTIAL  capability,  AFFSENSOR  increases  by  one.  If  BSS  site  3  then 
sends  out  a  later  SYS  report  degrading  its  status  to  ZERO  then 
AFFSENSOR  must  be  decreased  by  one  and  OUTSENSOR  is  increased. 

It  is  also  valuable  to  keep  track  of  the  pattern  and  the  cause 
of  the  SYS  reports  received  so  far  and  determining  what  percentage 
of  these  messages  were  EMERGENCY  reports.  Cause  can  be  established 
by  tabulating  how  many  reports  were  caused  by  FAILURE,  SABOTAGE  and 
TEST.  All  these  numbers  are  stored  in  SYSBoard,  which  must  of  course 
be  updated  each  time  a  SYS  report  is  received  to  keep  track  of  the 
changing  total  number  of  reports.  To  summarize  what  SYSBoard  is 


tracking,  figure  12  demonstrates  what  the  output  of  SYSBoard.  The 
actual  name  of  the  instance  variables  used  in  SYSBoard  is  shown  in 


brackets  to  the  right.  It  must  be  noted  that  the  C3  network  analysis 
is  triggered  only  upon  receiving  a  SYS  message  that  concerns  a  C3 
node,  while  pattern  and  cause  analysis  are  performed  each  time  any 
SYS  report  is  received,  through  the  functions  below. 

Functions  that  Process  SYS  Reports 

There  are  four  rule  sets  and  one  LISP  function  that  process  SYS 
reports  as  shown  in  figure  13.  As  was  the  case  with  INTELHANDLER , 
SYSHANDLER  is  a  LISP  function  that  decomposes  the  SYS  message  it 
receives  from  METASCHEDULER.  The  SYSAnalyst  takes  the  constituent 
parts  in  their  original  numerical  form  and  converts  them  to  such 
states  as  FULL  or  PARTIAL.  Thus,  an  SYS  message  whose  origin  is  "2" 
is  interpreted  to  be  "BSS  site  number  2"  and  an  origin  of  "F"  is 
translated  to  indicate  it  concerns  the  Back  Up  and  Routing  Facility 
(BRF).  SYSAnalyst  also  updates  the  number  of  SYS  reports  and  the 
categories  they  fall  into  by  posting  the  values  of  these  instance 
variables  on  the  SYSBoard.  SYSAnalyst  updates  the  property  list  of 
the  sensor  actor  each  time  to  embed  the  five  variables:  REASON, 
CAPABILITY,  RESTORETIME,  OUTTIME  and  TYPE. 

If  the  SYS  report  does  not  concern  a  C3  node,  analysis  and 

integration  of  the  SYS  report  terminate  upon  updating  the  SYSBoard. 

However,  the  SYS  messages  which  do  concern  a  C3  node  must  process 
through  the  additional  3  rule  sets  seen  to  the  left  in  figure  13. 

The  first  rule  set,  C3Analyst  sets  each  ADSGSF  and  BSSGSF  path  as  a 


THE  SYSBOARD  BLACKBOARD  REPORTS  THAT: 

1  out  of  9  sensor  sites  are  OUT 

[OUTSENSOR] 

with  ZERO  capability. 

2  out  of  9  sensor  sites  are  AFFECTED 

[AFFSENSOR] 

with  PARTIAL  capability. 

4  SYS  Reports  have  been  acknowledged. 

[OUTTOTAL] 

Out  of  these  reports: 

4  have  been  EMERGENCY  reports. 

[OUTEMERG] 

3  have  been  due  to  SABOTAGE. 

[OUTSABOTAGE] 

0  have  been  due  to  TESTING. 

[OUTTEST] 

1  have  been  due  to  FAILURE. 

[OUTFAILURE] 

C3  Network  path  analysis  reveals: 

2  ADSGSF  paths  are  FULL. 

[AFULLJ 

2  ADSGSF  paths  are  PARTIAL. 

[ APARTIAL] 

0  ADSGSF  paths  are  ZERO. 

[AZERO] 

4  BSSGSF  paths  are  FULL. 

[BFULL] 

0  BSSGSF  paths  are  PARTIAL. 

[ BPARTIAL] 

0  BSSGSF  paths  are  ZERO. 

[BZERO] 

ut  of 
ables 
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list,  and  composes  a  metalist,  that  is  a  list  of  lists,  and  then 
calls  on  SYSCheck  with  the  metalist.  SYSCheck  uses  a  While  LOOP  to 


look  at  each  separate  path  on  the  metalist,  and  decides  whether  the 
status  of  each  path  is  FULL,  PARTIAL  or  ZERO.  Having  completed  the 
examining  of  a  path,  SYSCheck  calls  on  the  C3Board  rule  set  which 
tracks  how  many  paths  fall  into  each  category.  Once  the  path  count 
is  updated  through  C3Board,  SYSCheck  then  deletes  the  examined  path 
from  the  metalist  and  continues  to  analyze  the  paths  one  by  one 
until  the  list  is  exhausted.  At  the  conclusion  of  this  process, 
C3Analyst  updates  the  SYSBoard  with  the  path  count  maintained  by 
C3Board.  Having  discussed  all  the  messages  that  do  not  concern 
launch  indications,  it  is  now  appropriate  to  discuss  the  processing 
of  the  first  report  of  launch,  the  ADS-1  message. 

Characteristics  of  the  ADS-1  Message 

ADS-1  reports  were  previously  discussed  as  the  input  to  the 
SCENARIO  REPRESENTATION.  The  most  important  things  they  contain  are 
an  infrared  intensity  reading,  a  latitude  and  longitude  indicating 
where  the  launch  ocurred  and  the  time  when  the  second  pass  satellite 
report  is  expected  to  arrive.  The  MWO  must  acknowledge  ADS-1 
messages  and  fill  out  a  report  which  asks  him  various  questions  such 
as  which  region  of  THEM  the  launch  site  is  in,  was  the  launch  site 
known,  suspected  or  unknown,  and  what  type  of  launcher  is  involved. 
Finally,  the  MWO  also  supplies  a  subjective  assesment  of  what  his 
confidence  level  is  in  believing  that  this  ADi-1  report  reflects  an 
actual  launch  event,  rather  than  spurious  data  or  damaged  sensor 


readings.  The  processing  of  ADS-1  reports  is  shown  on  figure  14. 
Before  reaching  any  further  processing,  the  ADS-1  report  goes 
through  the  SCENARIO  REPRESENTATION.  At  this  point  it  may  be  useful 
to  reflect  once  more  on  what  information  is  attached  to  the  launch 
site  actor's  property  list  as  a  result  of  the  polar  format 
processing  of  the  SCENARIO  REPRESENTATION: 


(LAUNCHSITE 

LAT 

LONG 

BSSTAG 


HIVALTAG 

FANCALL 


[property  list,  containing] 

[reported  latitude] 

[reported  longitude] 

[the  minimum  and  maximum  headings  that  can  be  taken 
from  this  launchsite  and  still  be  detected  by  a 
particular  BSS  site] 

[range  and  heading  from  launchsite  to  each  of  the 
high  value  targets] 

[range  and  heading  to  the  remainder  of  the  targets]) 


The  immediate  objective  is  to  assist  the  MWO  to  fill  out  his 


ADS-1  report  by  supplying  him  with  the  region  the  missile  was 


launched  from  and  computing  a  confidence  level.  Mapping  the  missile 
launch  site  into  a  region  is  the  task  of  the  Regions  rule  set  which 
simplifies  the  task  by  setting  each  region  into  the  shape  of  a 
rectangle.  For  example  the  region  of  OUTT  is  any  point  north  of  24 
degrees  of  latitude  and  east  of  17  degrees  longitude.  The  shape  of 
the  most  complex  region,  CENTRAL  is  not  described  at  all.  Since  all 
the  other  regions  are  described,  the  launch  site  is  assumed  to 
belong  to  the  CENTRAL  region  if  no  other  rule  is  triggered  first. 
Rather  than  giving  the  MWO  a  confidence  level  on  a  scale  from  0  to  9 
as  SIMCOPE  suggests,  SENTINEL  computes  ADS-1  confidences  into  five 
levels:  EXTHIGH  for  extremely  high,  HIGH,  MIXED,  LOW  and  EXTLOW. 

This  task  is  achieved  by  the  ADSIConf idence  rule  set  which  is 


described  next. 


Figure  14.  Block  Diagram  of  the  Processing  of  ADS-1  First  Launch 
Report  Messages. 


Computing  the  ADS-3  Confidence  Level 


Compared  to  the  second  and  third  level  messages  that  are 
discussed  later,  there  is  very  little  information  available  at  the 
ADS-1  level  to  decide  on  the  confidence  level  of  the  event.  It  is 
important  to  note  that  receiving  an  ADS-1  report  does  not  always 
indicate  a  missile  has  been  launched.  ADS-1  reports  can  be  triggered 
spontaneously  and  report  raging  forest  fires  or  ground  explosions  as 
reported  launch  events  (1:68).  Infrared  readings  will  be  classified 
into  the  categories  of  TYPE1 ,  TYPE2 ,  INDISTINCT  or  UNKNOWN. 
INDISTINCT  readings  are  slightly  better  than  UNKNOWN  because  they 
occupy  a  band  between  TYPE1  and  TYPE2  while  UNKNOWN  readings  fall 
outside  the  band  of  readings.  The  most  important  factors  in 
determining  the  confidence  level  will  be  the  reported  infrared 
intensity,  the  confidence  level  of  the  sensor,  and  the  launch  site 
it  has  been  matched  to  during  the  SCENARIO  REPRESENTATION 
processing.  If  the  reported  launch  event  did  correspond  to  a  known 
or  suspected  missile  site,  information  is  available  which  reports 
the  type  of  missiles  stationed  at  that  site.  If  the  type  of  missile 
matches  the  infrared  intensity  reading,  then  there  is  evidence  to 
confirm  a  missile  launch  has  taken  place.  However,  if  the  launch 
site  is  unknown  then  there  is  no  knowledge  about  the  type  of  missile 
that  could  be  there.  Given  purely  a  heuristic  approach  to  computing 
the  confidence  level,  one  is  tempted  to  write  many  rules  such  as: 

IF  Sensor  Confidence  is  HIGH  AND 
Infrared  Reading  is  INDISTINCT 
THEN  AD91Conf idence  level  is  HIGH 


There  are  relatively  few  difficulties  with  this  approach  unless 
many  factors  are  combined  together;  in  those  cases  writing  a  rule  to 
cover  every  single  occurence  becomes  a  repetitive  and  monotonous 
process.  Using  the  above  rule  as  a  starting  point,  it  becomes 
difficult  in  this  form  to  easily  combine  the  conclusion  of  the  above 
rule  with  other  factors  such  as  the  INTELCONDTION  and  the  reported 
capability  of  the  satellite  which  originated  the  report.  Instead  of 
progressively  combining  more  information  using  such  abstraction 
levels  as  HIGH  or  LOW,  numbers  were  used.  Numeric  approaches  if 
chosen  carefully  will  render  the  same  results  as  the  more  cumbersome 
combining  of  abstract  states.  To  exhaustively  cover  every  single 
combination  of  states  in  a  "brute  force"  approach  would  require  over 
400  rules,  whereas  using  numerical  processing  methods  requires  only 
30  rules.  It  is  much  easier  to  map  an  INDISTINCT  infrared  level  to  a 
"1"  and  a  HIGH  Sensor  Confidence  level  to  a  "2,"  add  the  two 
together  and  map  the  sum  "3"  to  an  overall  confidence  level  of  HIGH. 
Besides  the  ease  of  manipulating  numbers,  the  theory  of  heuristic 
reasoning  by  using  endorsements  developed  by  Paul  R.  Cohen  supports 
the  ranking  of  evidence  in  different  manners  and  specifically 
includes  the  possibility  that  such  endorsement  levels  can  be 
numerical  measures  (5:53).  Using  the  terminology  developed  by  Cohen, 
one  could  say  that  the  evidence  for  supporting  the  hypothesis  that  a 
launch  event  has  occurred  is  higher  for  a  HIGH  sensor  confidence 
level  which  then  results  in  a  higher  degree  of  belief  of  evidence  in 
this  factor  which  is  a  "3."  Conversely  one  can  state  that  the 
INDISTINCT  infrared  level  does  not  support  the  hypothesis  nearly  as 


well  and  thus  receives  its  "2"  ranking.  One  other  important  benefit 
from  this  approach  is  the  ease  with  which  the  output  of  the  system 
can  be  changed.  By  merely  changing  the  ranking  of  evidence  or 
tinkering  with  how  the  sum  is  interpreted  at  the  end,  the  confidence 
level  can  be  varied  greatly  just  by  changing  a  handful  of  numerical 
assignments. 

The  task  of  ADSIConfidence  is  to  take  five  separate  factors  and 
map  them  to  a  number  depending  on  how  well  they  support  the 
hypothesis  of  an  actual  missile  launch.  These  five  numbers  are  added 
up  together  and  the  final  sum  is  interpreted  over  a  range  of  values 
to  result  in  the  confidence  levels  of  EXTHIGH,  HIGH,  MIXED,  LOW  and 
EXTLOW.  The  five  factors  ADSIConfidence  uses  are:  the  infrared 
intensity  and  the  reported  capability  of  the  satellite  making  the 
report,  the  intelligence  condition,  status  of  the  launch  site  (is  it 
known  or  suspected?)  and  the  sensor  capability  as  reported  in  its 
property  list.  At  this  point,  the  MWO  can  fill  out  the  ADS-2  report 
with  the  assistance  of  SENTINEL. 

ADS1  INDICATION  OF  LAUNCH  RECEIVED: 

ADS  PASS  1  EVENT1 

1.  DETECTED:  143500  (time  of  ADS  detection] 

2.  ADS:  ADSSOUTH  [which  satellite  made  the  report] 

3.  REGION:  CENTRAL  [launch  site  in  this  region  of  THEM] 

4.  LAUNCHER  TYPE:  TYPE2  [infrared  intensity  reading  results] 

5.  CONFIDENCE:  HIGH  [resulting  ADS-1  confidence  level] 

It  now  becomes  crucial  to  incorporate  an  explanation  capability,  a 
central  feature  of  any  expert  system  into  SENTINEL. 


V  V  v  V  V  V  V  \  -  v  v  V  V  *  '  V  V  •  • 
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Explanation  at  the  ADS-1  Level 

The  ADS-1  explanation  capability  is  rudimentary  simply 
because  at  this  level  there  is  not  that  much  information  available. 
Only  the  five  factors  which  were  used  in  computing  the  ADS-1 
confidence  level  directly  affect  the  reliability  of  the  report. 
Therefore,  the  ADS-1  explanation  capability  consists  solely  of  a 
stating  of  the  five  factors  that  led  to  the  confidence  level.  The 
MWO  is  asked  to  respond  yes  or  no  (actually  T  or  NIL)  to  whether  he 
wishes  to  see  more  information.  Requiring  the  MWO  to  respond  is 
appropriate  since  he  must  respond  to  ADS-1  messages.  What  the  MWO 
sees  following  the  output  shown  above  is  as  follows: 

Further  explanation  can  be  obtained  by  typing  a  T, 
otherwise  type  NIL. 

T 

SENSOR  Confidence  is:  HIGH 
SENSOR  Capability  is:  FULL 
IR  Readings  classify  event  as:  TYPE2 
Current  INTEL  condition  is:  YELLOW 
As  reported  by  INTEL  sources. 

For  the  second  and  third  level  messages,  this  type  of 
simplistic  explanation  will  not  suffice.  What  is  required  is  a 
method  of  displaying  all  the  relevant  data  if  required  but  not 
overwhelming  the  operator  by  simply  displaying  a  mass  of  numbers  and 
statistics  each  time  he  requests  an  explanation.  It  would  be  more 
useful  to  abstract  that  mass  of  data  to  a  higher  level  such  as 
"INTEL  conditions  suggest  ATTACK",  however  that  is  one  of  the  main 
concerns  of  the  next  chapter.  Before  turning  to  chapter  4,  the  last 


ADS-1  rule  set  entitled  ADSIFeatureSet  must  be  discussed. 


ADSIFeatureSet 


In  describing  and  updating  launch  reports,  it  is  necessary  to 
have  some  sort  of  structure  to  track  a  missile  launch  as  it  proceeds 
through  the  various  phases  of  sensor  detection  such  as  ADS-1,  ADS-2 
and  BSS  stages.  The  first  impulse  is  to  embed  the  ADS-1  information 
onto  the  launch  site  actor's  property  list.  The  problem  with  this 
approach  is  that  the  same  launch  site  could  account  for  multiple 
launches  and  thus  ADS-1  reports.  To  avoid  destroying  this 
information,  a  structure  independent  of  the  launch  site  must  be  used 
to  embed  this  information.  This  structure  is  also  a  property  list 
which  is  entitled  an  EVENT.  An  event  counter  is  maintained  to  insure 
each  event  property  list  created  is  unique.  Thus  the  first  ADS-1 
report  results  in  EVENT 1 ,  the  second  one  EVENT2  and  so  on, 
METASCHEDULER  actually  creates  the  EVENT  by  using  the  event  counter, 
however  the  EVENT  is  not  completed  until  ADSIFeatureSet  is 
processed . 

One  could  take  all  the  information  provided  by  the  ADS-1  report 
and  blindly  embed  it  on  the  EVENTLIST  using  such  variables  as 
SENSORCONFIDENCE,  INFRAREDINTENSITY  and  so  on.  However,  this 
approach  tends  to  obscure  the  essential  data  amid  a  lot  of  less 
valuable  information.  A  far  more  profitable  approach  is  to  use  the 
concept  of  a  "feature  set"  to  isolate  the  essential  characteristics 
of  the  launch  report  into  the  fewest  yet  most  distinct  set  of 
characteristics.  Feature  sets  have  been  used  widely  in  pattern 
recognition  tasks  to  identify  unknown  objects  by  computing  the 
distance  between  the  unknown  object  and  the  characteristics  of  known 


models  (22:369).  In  the  case  of  SENTINEL,  the  concept  of  a  feature 
set  will  be  used  to  compute  the  difference  or  distance  between  the 
unknown  launch  event  and  the  known  characteristics  of  such 
hypotheses  as  TEST,  HOSTILE  and  UNKNOWN.  At  the  completion  of 
processing  for  the  ADS-1  report,  the  end  result  is  the  following 
event  list  and  feature  set,  where  the  leading  PI  indicates  the  first 
pass,  and  the  items  in  the  brackets  are  a  short  explanation  of  what 
each  variable  contains. 

(EVENT1  [name  of  the  property  list] 

P1TIME  [time  at  which  the  ADS-2  report  for  this  event  is  expected] 
P1LS  [the  launch  site  actor  which  originated  this  report] 
P1C0NFIDENCE  [the  level  of  confidence] 

P1IRTYPE  [result  of  the  infrared  reading] 

P1SENS0R  [combined  output  of  sensor  confidence  and  capability]  ) 
The  first  two  items  of  the  property  list  are  not  really  part 
of  the  feature  set  but  are  essential  to  maintain.  P1TIME  is  used  to 
match  the  followup  ADS-2  report  to  the  same  missile  launch  report, 
and  thus  the  same  EVENT.  P1LS  is  the  launch  site  actor  this  ADS-1 
report  and  EVENT  have  been  matched  to  and  is  the  key  to  all  the 
SCENARIO  REPRESENTATION  processing.  The  remaining  three  items 
constitute  the  feature  set  of  the  ADS-1  report. 

P1C0NFIDENCE  is  the  HIGH  or  MIXED  confidence  rating  determined 
by  ADSIConfidence  and  represents  a  useful  abstraction  of  the  end 
result  of  all  the  information  for  this  launch  event.  P1IRTYPE  is 
carried  over  directly  from  the  ADS-1  report,  because  it  cannot  be 
easily  combined  with  other  factors  without  losing  information  in  the 
process.  The  final  item,  P1SENS0R  represents  the  combination  of 
sensor  site  confidence  on  the  ADS-1  report  with  the  sensor 


capability  of  FULL,  PARTIAL  or  ZERO.  The  resulting  P1SENSOR  is  also 
a  1  through  9  number  which  results  from  the  following  process.  First 
the  sensor  confidence  level  is  abstracted  to  the  following  ranges:  9 
through  7  results  in  HIGH,  4  through  6  is  MEDUIM  and  anything  below 
6  is  LOW.  P1SENS0R  is  then  set  through  several  IF  THEN  rules.  For 
example: 

IF  SENSOR  CAPABILITY  is:  FULL  AND 

SENSOR  CONFIDENCE  RANGE  is:  MEDUIM 
THEN  P1SENS0R  is:  8 

Using  numbers  makes  it  easy  to  compare  different  sensor 
configurations,  as  a  P1SENS0R  rating  of  8  is  better  than  a  sensor 
rating  of  7,  since  the  rating  of  7  occurs  when  sensor  capability  is 
PARTIAL  and  confidence  is  HIGH.  At  the  same  time  this  approach  takes 
advantage  of  the  discrete  nature  of  the  SIMCOPE  variables  to  produce 
a  unique  output  which  can  always  be  broken  down  into  a  sensor 
capability  and  a  sensor  confidence.  This  permits  a  higher  level  of 
abstraction  to  be  attained  which  is  easier  to  compare  and  propagate 
while  still  being  able  to  use  its  constiutents  if  needed.  Producing 
this  feature  set,  which  represents  as  much  information  as  possible 
by  using  the  fewest  number  of  characteristics,  brings  the  processing 
of  ADS-1  messages  to  completion.  ADS-2  second  level  messages  are 
processed  in  the  next  chapter. 


wifi  I 


Pass  Satellite  Report 


The  ADS-2  message  represents  the  second,  confirmatory 
indication  of  a  missile  launch  from  the  ADS  satellite  in  the  SIMCOPE 
scenario.  When  the  ADS-2  message  is  coupled  with  the  appropriate 
ADS-1  message,  a  large  amount  of  information  becomes  available.  By 
using  a  blackboard  architecture,  SENTINEL  infers  and  reasons  from 
this  information  in  a  way  which  is  consistent  with  other  expert 
systems.  SENTINEL  must  also  determine  whether  the  launch  event  in 
question  represents  a  TEST,  HOSTILE,  UNKNOWN  or  UNRESOLVABLE  event. 
This  is  determined  using  the  statistical  concept  of  a  feature  set, 
and  measuring  the  distance  to  each  hypothesis  to  the  EVENT  in 
question.  Before  these  other  tasks  can  be  accomplished,  the  ADS-2 
report  must  be  matched  up  with  the  appropriate  EVENT. 

Matching  ADS-1  and  ADS-2  Messages 

The  information  presented  in  the  ADS-1  report  and  captured 
within  the  property  list  of  the  EVENT  includes:  the  launch  latitude 
and  longitude,  the  infrared  intensity  reading,  the  confidence  of  the 
sensor  site  and  when  the  ADS-2  report  can  be  expected.  By  contrast 
the  ADS-2  message  yields  a  heading,  a  missile  type,  sensor  site 
confidence,  what  BSS  site  will  detect  the  missile  and  a  predicted 
time  for  BSS  site  detection.  ADS-2,  like  all  the  other  SIMCOPE 
messages,  give  a  PRESENTIME  which  is  the  time  at  which  the  received 
message  was  generated.  The  predicted  time  of  appearance  for  the  ADS- 
2  report*  which  is  the  P1TIME  of  the  EVENT  can  be  used  with 
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PRESENTIME  to  match  the  ADS-2  report.  For  example,  if  EVENT3  has  a 
P1TIME  of  2130  hours  and  an  ADS-2  report  is  received  at  2131  hours, 
strong  circumstantial  evidence  links  this  report  to  EVENT3.  Note 
that  the  number  of  ADS-2  messages  will  be  less  than  the  number  of 
EVENTs  since  the  ADS-1  messages  which  create  the  EVENTS  have  a  much 
higher  possibility  of  being  a  false  alarm  (1:47).  SENTINEL  cannot 
process  an  ADS-2  report  which  cannot  be  matched  to  an  EVENT,  since 
no  longitude  and  latitude  coordinates  would  be  available  and 
therefore  no  available  polar  representation  of  the  SCENARIO.  If 
such  an  event  were  to  occur,  SENTINEL  would  avoid  performance 
degradation  difficulties  by  announcing  to  the  user  that  : 

NO  ADS1  EVENT  MATCHES  THIS  ADS 2  REPORT 

SPURIOUS  ADS 2  REPORT  SUSPECTED 

SENTINEL  DECISION  AID  CANNOT  PROCESS  THIS  REPORT 

By  using  this  technique  the  MWO  can  then  be  made  aware  of  what 
SENTINEL  cannot  aid  him  with  and  can  deal  with  it  as  he  chooses. 

To  begin  the  matching  process,  SENTINEL  first  checks  the 
compatibility  of  satellite  coverage  with  the  P1LS  or  launch  site 
identification  of  the  EVENT.  If  EVENT3  has  a  P1LS  whose  latitude  is 
at  35  degrees,  and  the  ADS-2  report  in  question  originated  from  the 
southern  ADS  satellite,  they  will  not  be  matched  since  the  southern 
satellite's  region  of  coverage  does  not  normally  encompass  35 
degrees.  Once  compatibility  of  satellite  coverage  is  ascertained, 
SENTINEL  matches  the  ADS-2  report  to  the  EVENT  whose  P1TIME  is 
closest  to  PRESENTIME.  SENTINEL  will  not  automatically  process 
EVENTs  &hose  ADS-2  report  is  more  than  10  minutes  overdue.  Since  the 


longest  range  SIMCOPE  missile  has  a  maximum  flight  time  of  10 
minutes  and  a  report  is  more  than  10  minutes  overdue  one  can  assume 
that  the  missile  is  no  longer  still  in  the  air.  When  a  match  takes 
place,  the  EVENT  in  question  becomes  the  EVENTMATCH  variable  and 
P1TIME,  which  indicated  the  predicted  time  of  reception  for  the  ADS- 
2  report,  is  removed  from  the  EVENTMATCH  property  list  and  P2TIME, 
which  indicates  when  the  BSS  radar  report  is  expected,  is  added  to 
the  property  list.  By  examining  the  property  list  of  an  EVENT  one 
can  always  tell  what  stage  of  processing  it  has  been  through,  for  if 
EVENT3  has  been  matched  to  an  ADS-2  report,  it  will  have  NIL  for  a 
P1TIME  value  but  have  a  number  for  the  P2TIME  slot.  Having  coupled 
the  ADS-1  and  ADS-2  information,  one  has  available  a  launch  site 
location,  a  missile  heading  as  well  as  a  second  infrared  intensity 
and  sensor  confidence  rating.  Determing  a  feature  set  and  confidence 
level  for  ADS-2  processing  is  the  next  objective. 


Initial  Processing  of  ADS-2  Message 

As  shown  in  figure  15,  the  initial  processing  of  ADS-2  messages 
is  quite  similar  to  the  ADS-1  process.  METASCHEDULER  routes  the 
ADS-2  message  directly  to  ADS2HANDLER,  which  is  a  LISP  function  that 
decomposes  the  ADS-2  report  into  its  constituent  parts,  and  then 
attempts  to  match  an  eligible  EVENT  from  the  EVENTLIST  with  the  ADS- 
2  report.  If  a  match  is  made,  ADS2Conf idence  and  the  ADS2FeatureSet 
rule  set  are  invoked  to  determine  a  second  pass  confidence  or 
P2C0NFIDENCE  and  a  feature  set  which  can  be  added  to  the  EVENTMATCH. 
If  no  match  is  found,  ADS2HANDLER  calls  on  EVENTCHECK,  which  shows 


three  lists  to  the  MWO;  first  the  EVENTLIST  of  all  EVENTS 


established  so  far,  than  a  list  of  all  the  EVENTS  which  have  not  yet 
been  matched  to  an  ADS-2  report,  as  well  as  the  ADS-2  reports  whose 
satellite  coverage  is  incompatible.  EVENTCHECK  also  calls  on 
TIMECHECK  to  locate  any  EVENTs  whose  ADS-2  reports  are  overdue  by  10 
or  more  minutes,  and  then  asks  the  user  if  he  wishes  to  match  any  of 
the  previously  unmatched  reports,  or  delete  the  overdue  messages  as 
reported  by  TIMECHECK.  During  the  course  of  normal  SIMC0PE 
operations,  it  is  unlikely  that  the  TIMECHECK  and  EVENTCHECK 
functions  will  be  used,  however  they  are  quite  effective  for 
training  and  troubleshooting. 

Having  matched  the  ADS-2  message  to  an  EVENT,  the  ADS2Confidence 
rule  set  is  invoked  to  compute  an  ADS-2  level  of  confidence. 

ADS2Conf idence  uses  the  P1C0NFIDENCE  slot  of  the  EVENT  property  list 
as  a  starting  point,  which  is  reduced  or  increased  by  examining  the 
infrared  intensity  reading  and  the  sensor  confidence  level  expressed 
in  the  ADS-2  message.  Numerical  methods  are  used  to  cut  down  on  the 
number  of  rules  requiied.  P1C0NFIDENCE  is  first  interpreted  as  a  SUM 
in  a  piocess  that  is  the  reverse  of  ADSIConfidence.  The  higher  this 
number,  the  more  certain  the  confidence  level  since  EXTHIGH  results 
in  a  5,  a  confidence  of  MIXED  is  a  3  and  so  on.  At  this  point 
ADS2Conf idence  calls  on  ADS2FeatureSet  to  reduce  this  information  to 
a  feature  set,  which  contains  only  the  four  elements  listed  below. 


P2TIME  [time  at  which  BSS  radar  report  expected] 

P2C0NF IDENCE  [confidence  level  resulting  from  ADS2Confidence] 

P2TYPE  [relates  ADS-1  infrared  to  ADS-2  infrared] 

P2SENSt)R  [similar  to  P1SENS0R,  1  through  9  number] 


Most  of  these  items  are  quite  similar  to  the  ADS-1  feature  set, 
such  as  the  time  expressed  in  P2TIME  and  the  five  level  confidence 
(EXTHIGH,  HIGH  ,  MIXED,  LOW,  EXTLOW)  expressed  previously,  as  well 
as  P2SENS0R  which  combines  the  second  pass  sensor  confidence  and 
sensor  capability  into  a  single  numerical  rating  as  was  done  for 
P1SENS0R.  However,  P2TYPE  is  different  and  represents  a  more 
abstract  level  of  information,  taking  on  3  values:  MATCH,  NOMATCH, 
MISMATCH.  MATCH  indicates  that  the  ADS-2  infrared  intensity 
corresponds  exactly  to  the  P1IRTYPE.  If  EVENT1  has  a  P1IRTYPE  value 
of  TYPE1  and  ADS-2  also  indicates  TYPEI  then  P2TYPE  is  MATCH.  On  the 
other  hand,  if  the  ADS-2  infrared  intensity  differs  from  P1IRTYPE 
but  for  the  better,  NOMATCH  is  the  result.  If  P1IRTYPE  is  INDISTINCT 
but  the  ADS-2  reading  corresponds  to  TYPE2,  this  results  in  NOMATCH. 
Finally,  MISMATCH  indicates  the  opposite  case;  the  one  of  a  certain 
rating  such  as  TYPEI  or  TYPE2  degrading  into  an  INDISTINCT  or 
UNKNOWN  reading.  When  ADS2FeatureSet  has  determined  P2TYPE  and 
P2SENS0R,  ADS2Conf idence  can  now  determine  the  P2C0NFIDENCE.  Using 
P1C0NFIDENCE  as  an  input,  ADS2Conf idence  examines  the  results  of 
ADS2FeatureSet  to  indicate  whether  the  evidence  further  supports  or 
denies  the  confidence  level  expressed  in  ADS-1.  A  higher  sensor 
rating,  or  a  P2TYPE  of  MATCH  or  NOMATCH  result  in  higher  confidence 
levels,  while  lower  sensor  ratings  and  MISMATCH  indications  tend  to 
lower  the  P2C0NFIDENCE.  It  may  be  useful  to  reflect  at  this  point 
what  the  entire  event  list  contains  following  the  ADS-2  match  and 
what  values  each  parameter  can  take: 


(EVENTNUMBER 

P1TIME 

PI CONFIDENCE 

P1SENS0R 

P1IRTYPE 

P2TIME 

P2CONFIDENCE 

P2SENSOR 

P2TYPE 


[NIL,  was  deleted  to  indicate  match] 
[EXTHIGH  HIGH  MIXED  LOW  EXTLOW] 

[1  thorugh  9  numerical  rating] 

[TYPE1  TYPE2  INDISTINCT  UNKNOWN] 
[to  be  used  for  BSS  match] 

[EXTHIGH  HIGH  MIXED  LOW  EXTLOW] 

[1  through  9  numberical  ADS-2  rating] 
[MATCH  NOMATCH  MISMATCH]  ) 


In  order  to  reason  with  the  attributes  of  the  EVENT,  it  is 
necessary  to  have  a  way  of  storing,  analyzing  and  displaying  this 
data.  Adding  more  information  to  the  EVENT  would  detract  from  the 
goal  of  keeping  the  feature  set  as  small  as  possible,  so  another 
knowledge  representation  strategy  must  be  used. 


Blackboard  Model  Proceesing 

The  concept  of  a  blackboard  model  was  pioneered  by  the  HEARSAY 
expert  system  which  featured  a  global  data  structure  known  as  a 
blackboard  that  was  accessed  by  all  the  knowledge  sources. 

Blackboard  model  systems  have  been  used  for  the  interpretation  of 
noisy  signals  (HEARSAY:  Erman  and  Lesser,  1975),  and  data  from 
sensors  (CRYSALIS:  Englemore  and  Nii,  1977)  and  an  opportunistic 
problem  solver  (OPS:  Hayes-Roth,  1978)  (4:111-336).  This  type  of 
architecture  can  be  used  for  representing  information  at  different 
levels  as  it  permits  specialist  subprograms  to  post  their  hypotheses 
on  a  blackboard  where  it  is  available  to  all  the  other  specialists 
as  well.  HEARSAY  presented  the  idea  of  indpendent  knowledge  sources 
cooperatively  solving  a  problem  by  posting  hypotheses  on  a  global 
blackboard  data  structure.  Other  aspects  of  SENTINEL  which  can  be 


found  in  a  blackboard  model  is  the  event  driven  control  structure 


presented  in  CRYSALIS  which  uses  an  event  list  to  keep  track  of 
hypotheses  as  they  proceed  through  different  planes  or  layers  of 
reasoning  in  the  protein  crystallography  domain  (4:11-126).  SENTINEL 
owes  a  distinct  debt  to  blackboard  architecture  since  it  uses  an 
event  driven  control  structure  and  an  event  list,  and  will  use 
blackboards  to  generate  a  reasoning  capability  and  a  two  layer 
explanation  capability. 

What  is  proposed  for  SENTINEL  is  a  group  of  specialist 
subprograms  that  each  post  a  hypothesis  about  whether  the  data  they 
have  analyzed  supports  the  contention  that  an  actual  missile  launch 
has  ocurred  and  not  a  system  or  testing  error.  Rather  than  using  a 
central  blackboard,  five  separate  and  distinct  blackboards  will  be 
maintained  to  make  it  easier  to  recall  what  data  is  posted  on  each 
blackboard.  This  community  of  blackboards  includes  the  previously 
discussed  INTELBoard  and  SYSBoard  as  well  as  three  others. 

MATCHBoard  indicates  the  credibility  of  the  sensor  at  the  time  of 
the  report,  the  TRENDBoard  indicates  whether  the  trend  of  evidence 
is  going  up  or  down  in  going  from  ADS-1  to  ADS-2,  and  DETECTBoard 
indicates  the  likelihood  of  BSS  sites  being  able  to  track  the 
missile  event  in  question.  Each  of  these  five  blackboards  will 
contribute  to  the  reasoning  and  explanation  process  by  having  an 
EXPNUMBER,  which  is  a  state  on  a  scale  of  1  to  4  indicating  how 
strong  belief  is  in  an  actual  launch  event,  and  a  COMMENT  for  the 
benefit  of  the  MWO  which  represents  an  abstracted  description  of  the 
state  listed  in  EXPNUMBER.  Therefore,  subprograms  will  post  their 
determinations  on  each  blackboard  so  that  SENTINEL  can  reason  from 


their  postulations.  The  COMMENT  section  of  all  five  blackboards  will 
serve  as  a  foundation  for  the  SENTINEL  explanation  capability.  For 
example,  if  INTELBoard  analysis  reveals  a  GREEN  condition  with  no 
alarming  incidents  posted,  the  value  of  EXPNUMBER  would  be  1  since 
that  does  not  strongly  support  the  hypothesis  of  an  actual  launch 
event  taking  place  and  an  appropriate  COMMENT  would  be:  "INTEL 
reports  no  indications  of  an  ATTACK."  On  the  other  hand,  an 
INTELBoard  with  a  RED  condition  would  have  an  EXPNUMBER  of  4  and  the 
COMMENT  would  be:  "INTEL  reports  STRONG  POSSIBILITY  of  ATTACK."  Note 
that  the  abstraction  listed  in  the  COMMENT  and  the  EXPNUMBER  is  less 
precise  than  a  recital  of  all  the  past  INT  reports  for  the  last  half 
hour  would  be.  The  key  to  understanding  the  explanation  capability 
of  SENTINEL  is  to  understand  the  four  levels  of  information 
available  in  SIMCOPE  as  shown  in  figure  16. 

The  first  level  is  the  "raw"  SIMCOPE  message  data  which  must  be 
deciphered  and  interpreted.  Once  a  message  such  as  an  SYS  message 
recording  an  EMERGNECY  outage  at  BSS  site  number  2  due  to  a  TEST  is 
received,  such  information  is  also  conveyed  in  the  property  list  of 
the  appropriate  actor.  In  this  case  the  BSS#2  property  list  is 
updated  to  show  an  outage  has  taken  place  that  results  in  a 
capability  of  FULL  until  1500  hours.  The  second  level  consists  in 
capturing  the  information  in  the  property  list  of  the  appropriate 
actor.  The  third  level  is  the  tabulation  of  this  information  in  the 
blackboards.  For  example  the  SYSBoard  would  keep  track  of  how  many 
SYS  outage  reports  have  been  received,  and  out  of  those  which  ones 
were  EMERGENCY  ones,  while  the  DETECTBoard  would  record  the  BSS 


SIMCOPE  MESSAGES 


FIRST  LEVEL  ((CWC  (SYS  (R  2  S  T)  130523)  1500)  F) 

((CWC  (ADS  ((SI  142718)  8)  -29)  13)  (142915)  8) 


ACTOR's  PROPERTY  LISTS 

SECOND  LEVEL  (BSS#2  CAPABILITY  [FULL]  REASON  [TEST] 

OUTAGETIME  [130523]  RESTORATIONTIME  [1500]  ) 

(LS6  TYPE  [RED1 ]  LAT  [29.5]  LONG  [13.5] 

BSSTAG  FANCALL  HIVALTAG  [VARIOUS]  ) 


BLACKBOARD  PROCESSING 


THIRD  LEVEL  (SYSBoard  15  SYS  Messages  Recieved 

10  EMERGENCY  Reports 
2  SENSORS  are  OUT  with  ZERO  CAPABILITY 
1  SENSOR  IS  AFFECTED  with  PARTIAL  CAPABILITY) 

(DETECTBoard 

BSS#2  BSS#3  WILL  DETECT. 

BSS#4  COULD  DETECT. 

BSS#5  WILL  PROBABLY  NOT  DETECT.) 


ABSTRACTION  LEVEL 

FOURTH  LEVEL  "MANY  SYS  REPORTS  RECEIVED  EXPNUMBER  =  2 

OVERALL  SYSTEM  STATUS:  POOR" 

"POSSIBILITY  OF  BSS  DETECTION:  EXPNUMBER  =  4 

VERY  STRONG" 


Figure  16.  The  Four  Levels  of  Information  Representation 
Used  in  SENTINEL. 


sites  which  would  be  in  a  position  to  detect  the  missile  heading. 

The  fourth  and  highest  level  of  abstraction  is  the  one  represented 
by  the  COMMENT  and  EXPNUMBER;  a  less  precise  yet  more  useful  way  of 
capturing  information  at  a  glance.  Compare  the  following: 

20  SYS  REPORTS  RECIEVED,  OUT  OF  THESE  REPORTS 
10  were  EMERGENCY  reports 

2  were  due  to  SABOTAGE 

3  were  due  to  FAILURE 

3  sensor  sites  are  AFFECTED  with  PARTIAL  capability. 

to  the  less  precise  but  shorter: 

MANY  SYS  REPORTS  received:  OVERALL  SYSTEM  STATUS:  IMPAIRED. 
Certainly  the  first  form  is  more  accurate  and  specific  and  does  not 
have  any  "noise"  in  it,  however  it  is  harder  to  understand  quickly 
and  could  easily  drown  the  MWO  in  another  wave  of  information; 
precisely  the  problem  SENTINEL  is  trying  to  alleviate.  The  second 
form  is  less  precise  and  has  more  "noise,"  yet  it  succinctly 
represents  the  general  state  of  affairs  for  SYS  messages.  The 
comparison  of  these  two  methods  leads  to  the  two  layer  explanation 
capability  of  SENTINEL.  The  top  layer  represents  the  COMMENTS  which 
are  meant  to  be  short  "reminders"  of  a  particular  situation.  In  most 
cases,  the  MWO  will  need  or  only  have  the  time  for  this  level  of 
explanation.  If  the  MWO  is  not  satisfied  with  this  layer  of 
explanation,  the  second  layer  which  is  the  third  level  of 
information  representation,  or  the  tabulation  of  the  blackboards  can 


be  shown. 


INTELBoard  and  SYSBoard 

These  first  two  blackboards  were  introduced  to  the  reader  in 
chapter  3  while  discussing  the  processing  of  INT  and  SYS  messages. 
The  only  modification  necessary  to  the  INTELBoard  and  SYSBoard  were 
the  addition  of  a  rule  set  INTELComment  and  SYSComment  respectively, 
which  determines  the  COMMENT  and  EXPNUMBER  of  these  blackboards.  If 
SENTINEL  has  just  been  initialized,  no  INT  or  SYS  reports  may  be 
available.  When  no  INT  reports  have  been  received  the  EXPNUMBER  is  0 
and  the  COMMENT  is  NIL  since  no  information  is  available.  In  the 
absence  of  information  to  the  contrary,  no  SYS  messages  indicate  a 
perfectly  well  functioning  sensor  system  with  an  EXPNUMBER  of  4, 
since  if  the  sensor  and  C3  network  are  completely  unimpaired  there 
is  more  confidence  that  the  launch  event  they  are  reporting  is 
indeed  ocurring  and  is  not  the  result  of  damaged  or  faulty  sensors. 
Having  discussed  the  two  blackboards  that  are  independent  of  ADS-2, 
it  is  now  appropriate  to  describe  the  other  three  blackboards  which 
are  directly  tied  to  the  ADS-2  report. 

MATCHBoard,  DETECTBoard  and  TRENDBoard 

As  shown  in  figure  17,  the  three  remaining  boards  are  filled  by 
five  rule  sets.  The  first  rule  set  invoked  by  ADS2Confidence  is 
SensorCheck.  SensorCheck  reports  on  the  credibility  of  the  sensor 
making  the  ADS-2  report.  Any  reported  outages  recorded  on  the 
property  list  of  the  sensor  actor  are  examined  and  are  posted  on  the 
blackboard.  In  addition  to  the  sensor  information,  MATCHBoard  also 


stores  additional  information  about  the  launch  event  such  as  if  the 


TrendCheck  RS 


launch  site  is  KNOWN,  UNKNOWN  or  UNSUSPECTED.  All  of  the  instance 


variables  maintained  in  MATCHBoard  are  shown  below  along  with  a 
short  explanation  of  what  they  represent: 


RPTSENSORCAP 

OUTAGEREASON 

LAUNCHSITE 

LSHEADING 

LSBSS 

P2LS 

LAUNCHERTYPE 

EXPNUMBER 

COMMENT 


[capability  of  the  sensor:  FULL  PARTIAL  or  ZERO] 
[outage  reason:  SABOTAGE,  FAILURE,  TEST  or  UNKNOWN] 
[its  status:  KNOWN,  UNKNOWN  or  SUSPECTED] 

[records  the  reported  heading  of  the  missile] 

[ADS-2  prediction  of  what  BSS  sites  will  detect] 

[the  launch  site  it  has  been  matched  to,  such  as  LS7] 
[type  of  missile:  TYPE1  or  TYPE2] 

[abstracted  general  state  of  the  MATCHBoard] 

[for  first  layer  of  explanation,  tied  to  EXPNUMBER] 


Note  that  the  LAUNCHERTYPE  is  assumed  to  be  TYPE2,  the  longer 
range  missile  with  a  maximum  flight  time  of  10  minutes  and  maximum 
range  of  2,650  kilometers,  unless  proved  otherwise.  LAUNCHERTYPE  can 
be  TYPE1  only  if  the  infrared  reading  of  both  the  ADS-1  and  ADS-2 
messages  determine  it  to  be  a  TYPE1  missile,  which  has  a  maximum 
flight  time  of  5  minutes  and  thus  a  range  of  1,325  kilometers. 

Having  completely  filled  the  MATCHBoard,  DetectCheck  rule  set  is 
invoked  next.  DetectCheck  concerns  itself  with  the  detection  of  the 
missile  event  by  a  BSS  site.  Using  the  missile  HEADING  given  in  the 
ADS-2,  DetectCheck  calls  on  HeadingCheck  to  process  the  BSSTAG  of 
the  launch  site  actor.  One  may  recall  that  the  BSSTAG  contains  the 
maximum  and  minimum  headings  that  a  missile  can  take  from  that  given 
site  and  still  be  detected  by  the  BSS  site.  Thus  BSSTAG  takes  the 
following  form: 

(LS7  [launchsite  actor  property  list]  BSSTAG 

((LS7  MAXPT  MINPT)  (BSS1  123  142)  (BSS2  136  150)  and  so  on.)) 

In  the  example  given  above,  a  missile  launched  from  LS7  will  be 


80 


detected  by  BSS  site  number  1  if  the  heading  lies  between  123  and 
142  degrees.  Even  though  HEADING  is  given  as  a  single  number,  TYPE2 
missiles  can  manuver  up  to  5  degrees  from  the  heading  reported  in 
ADS-2.  If  a  TYPE2  missile  heading  of  125  degrees  is  given  for 
example,  that  missile  could  actually  strike  any  target  between  120 
and  130  degrees.  Thus,  it  is  not  sufficient  to  merely  state  if  the 
heading  will  be  detected  by  the  BSS  site  in  question  if  the  heading 
lies  between  the  reported  MAXPT  and  MINPT,  Instead,  various  lists 
must  be  maintained:  the  WILLDETECT  list  of  those  BSS  sites,  where 
the  HEADING  does  lie  between  MAXPT  and  MINPT,  the  CLOSEDETECT  list 
of  those  sites  whose  range  of  coverage  is  up  to  5  degrees  away  from 
detecting  the  HEADING  and  the  FARDETECT  list  of  those  sites  whose 
coverage  lies  up  to  10  degrees  away  from  the  HEADING.  In  some  cases 
the  HEADING  will  deviate  more  than  10  degrees  from  any  BSS  site  of 
coverage,  and  SENTINEL  would  state: 

NO  BSS  DETECTION  POSSIBLE,  CLOSEST  approach  will  be  to 

BSS  SITE  7  with  a  deviation  of  23  degrees. 

The  entire  COMMENT  associated  with  DETECTBoard  is  shown  above, 
where  NEARPT  is  BSS  site  7  and  the  NEARDIFF  represents  the  closest 
deviation  from  a  BSS  zone  of  coverage  that  lies  further  than  10 
degrees.  The  EXPNUMBER  associated  with  this  COMMENT  would  be  a  1 
since  it  does  not  support  the  contention  that  a  hostile  missile 
launch  has  ocurred  since  it  is  proceeding  along  a  heading  that  does 
not  take  it  over  US.  A  DETECPT  is  also  needed  which  is  used  to 
complete  the  ADS-2  report.  When  responding  to  the  ADS-2  report  the 
MW0  is  asked  only  for  a  single  BSS  site,  not  a  list  such  as 


WILLDETECT.  Therefore,  DETECTPT  is  the  BSS  site  whose  middle  zone  of 
coverage  (the  average  between  MAXPT  and  MINPT)  lies  most  closely  to 
missile  heading.  DetectCheck  and  HeadingCheck  have  completed  their 
task  when  the  DETECTBoard  variables  below  are  filled  out. 

WILLDETECT  [those  BSS  sites  where  heading  is  in  zone  of  coverage] 

CLOSEDETECT  [BSS  site  coverage  up  to  5  degrees  away  from  heading] 

FARDETECT  [BSS  site  coverage  up  to  10  degrees  away  from  heading] 

NEARPT  [BSS  coverage  closest  to  heading,  but  further  than 

10  degrees] 

NEARDIFF  [the  difference  between  heading  and  coverage  of  NEARPT] 
DETECTPT  (BSS  site  number  needed  for  ADS-2  report] 

STATUSDETECTPT  [DETECTPT  capability:  FULL  PARTIAL  or  ZERO] 

EXPNUMBER  [abstracted  state  describing  BSS  detection  opportunities] 
COMMENT  [used  in  first  layer  of  explanation,  tied  to  EXPNUMBER] 

Only  TRENDBoard  which  is  filled  by  TargetCheck  and  TrendCheck 
remains  empty.  TRENDBoard  represents  whether  the  trend  of  evidence 
in  going  from  ADS-1  to  ADS-2  reports  is  up  or  down  and  whether  high 

value  targets  may  be  at  risk  from  this  launch  event.  The  TrendCheck 

rule  set  uses  numerical  processing  techniques  to  compare  the 

infrared  intensity,  the  sensor  confidence  and  the  sensor  capability 

in  both  the  DS-1  and  ADS-2  report.  In  case  of  equal  ratings,  such 
as  a  sensor  capability  of  FULL  for  both  ADS-1  and  ADS-2  the  trend  is 
held  to  be  UP.  Since  there  are  3  features  which  are  compared  there 
are  three  UP  or  DOWN  votes.  The  number  of  UP  votes  determine  the 
COMMENT  and  EXPNUMBER  of  TRENDBoard.  Three  UP  votes  result  in  an 
EXPNUMBER  of  4  with  the  resulting  comment:  "TREND  of  evidence  is: 
POSITIVELY  UP."  Lesser  number  of  UP  votes  result  in  trends  of  UP, 
DOWN  or  POSTIVELY  DOWN  which  also  result  in  lower  EXPN'UMBERs.  Having 
determined  the  trend,  TargetCheck  determines  which  high  value 
(C3  node)  targets  are  threatened  by  this  event.  Using  the  HEADING 


given  in  the  ADS-2  message,  TargetCheck  process  the  HIVALTAG 
property  of  the  launch  site  actor.  Recall  that  HIVALTAG  takes  the 
following  form: 

(LS7  [launch  site  actor  property  list] 

HIVALTAG  ((TARGET  HEADING  RANGE)  (TGT1  345  1047) 

(TGT2  215  1756)  and  so  on...) 

Thus,  the  heading  a  missile  from  LS7  would  have  to  take  to 
attack  TGT1  would  be  345  degrees  which  lies  at  a  distance  of  1,047 
kilometers  from  the  launch  site.  Whereas  BSS  site  detection  involves 
finding  a  heading  that  lies  in  a  range  between  two  points, 
TargetCheck  must  determine  whether  a  heading  represents  a  threat  to 
targets  which  lie  at  a  single  heading  from  the  launch  site. 
TRENDBoard  shares  the  name  of  the  instance  variables  with 
DETECTBoard,  but  they  represent  different  things.  Thus,  WILLDETECT 
for  a  target  represents  those  targets  that  lie  within  1  degree  of 
the  missile  heading.  For  example,  if  the  ADS-2  HEADING  is  214 
degrees  and  the  HIVALTAG  shown  above  is  processed  then  TGT2  would  be 
on  the  WILLDETECT  list.  CLOSEDETECT  is  the  list  of  targets  that  are 
within  5  degrees  of  the  heading  and  thus  within  the  maneuvering 
range  of  the  TYPE2  missile,  while  FARDETECT  are  those  within  10 
degrees.  A  target  is  only  listed  on  each  list  once,  so  that  a  TGT 
that  appears  on  the  WILLDETECT  list  is  not  listed  on  FARDETECT  or 
CLOSEDETECT  as  well.  The  information  obtained  by  TargetCheck  is 
represented  by  a  HIVALNUMBER,  whose  value  is  1  through  4  and 
represents  the  threat  presented  to  the  C3  network  by  this  missile 
heading.  TargetCheck  also  appends  the  COMMENT  found  in  TRENDBoard  by 
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adding  in  the  case  where  the  WILLDETECT,  CLOSEDETECT  and  FARDETECT 
lists  are  empty:  "THREAT  TO  C3  Nodes:  VERY  LOW.  "  That  particular 
COMMENT  would  have  a  HIVALNUMBER  of  1,  with  other  threat  comments 
resulting  in  LOW,  HIGH  or  VERY  HIGH  with  a  correspondingly  higher 
HIVALNUMBER  to  represent  the  situation.  Therefore,  the  TRENDBoard 
now  completed  and  its  instance  variables  take  the  following  form. 

WILLDETECT  [Those  targets  within  1  degree  of  missile  heading] 
WILLNUMBER  [the  number  of  targets  appearing  in  WILLDETECT  list] 
CLOSEDETECT  [those  targets  within  5  degrees  of  missile  heading] 
CLOSENUMBER  [the  number  of  targets  appearing  in  CLOSEDETECT] 
FARDETECT  [those  targets  within  10  degrees  of  missile  heading] 
FARNUMBER  [number  of  targets  appearing  in  FARDETECT  list] 
HIVALNUMBER  [represents  the  state  of  threat  to  C3  network] 
EXPNUMBER  [represents  the  trend  of  evidence  from  ADS-1  to  ADS-2] 
COMMENT  [first  explanation  layer,  tied  to  EXPNUMBER] 

Filling  out  the  TRENDBoard  brings  the  process  of  specialist 
subprograms  posting  hypotheses  to  a  close,  which  was  triggered  by 
the  successful  match  of  an  ADS-2  report.  SENTINEL  now  has  five 
completed  blackboards  and  an  ADS2Conf idence  level  to  continue 
processing  this  report.  Up  to  this  point,  the  processing  has  been 
linear  since  all  events  regardless  of  their  confidence  level  or 
supporting  evidence  have  been  processed  in  a  very  similar  manner. 
Now,  the  ADS-2  confidence  level  will  be  the  key  to  different 
processing  for  events. 


Confidence  Processing 


Following  ADS-2  matching  there  is  now  an  EVENT  property  list 
which  contains  the  ADS-1  and  ADS-2  feature  sets.  Included  in  that 
EVENT,  *is  the  P2C0NFIDENCE  or  second  pass  confidence,  which  will 
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determine  all  the  further  processing  of  the  ADS-2  report. 
P2C0NFIDENCE  falls  into  five  levels:  HIGH,  EXTHIGH,  MIXED,  LOW  and 
EXTLOW.  Rather  than  discussing  the  processing  of  each  confidence 
level  separately,  an  "ith"  confidence  level  processing  is  discussed 
and  then  each  case  is  differentiated.  The  ith  confidence  level 
processing  is  shown  in  figure  18,  and  represents  all  the  functions 
that  are  invoked  by  any  confidence  level.  The  first  rule  set 
consulted  by  any  of  the  confidence  levels  is  BoardVoting. 

BoardVoting  examines  the  EXPNUMBER,  the  number  which  summarizes  the 
state  of  each  of  the  five  boards,  and  a  vote  is  taken.  Voting  has 
been  used  frequently  in  sensor  interpretation  as  a  means  of 
increasing  the  certainty  of  information  obtained  from  sensor  systems 
by  combining  the  information  from  many  sensors  into  a  single 
composite  sensor  (12:161).  The  majority  of  the  five  filled 
blackboards  will  either  confirm  or  deny  the  confidence  level  under 
consideration.  For  example,  when  the  P2C0NFIDENCE  is  initially  HIGH, 
yet  a  majority  of  the  blackboards  are  at  a  LOW  and  offer  little 
evidence  to  suggest  that  an  actual  missile  event  is  under  way,  the 
confidence  level  is  reset  to  LOW.  Not  all  five  blackboards  will 
always  be  filled.  If  no  INT  reports  have  been  received  since 
SENTINEL  initialization,  INTELBoard  will  have  no  information  and 
thus  no  comment  or  EXPNUMBER  on  INTELBoard.  When  there  is  no 
discernible  heading  on  the  second  pass  report,  there  will  be  no 
information  on  DETECTBoard  either.  In  these  cases,  further  factors 
will  be  considered  to  maintain  the  voting  procedure  with  an  odd 


number  of  voters. 


To  enhance  the  logical  order  of  presentation  during 
explanation,  the  ith  confidence  calls  on  either  HIGHRanking  or 
LOWRanking  to  rank  order  the  blackboards  in  the  order  that  is  most 
conducive  to  the  ith  confidence.  Thus,  if  confidence  is  HIGH, 
HIGHRanking  would  be  called  to  rank  order  the  blackboards. 
HIGHRanking  would  examine  the  EXPNUMBER  of  each  blackboard  and  rank 
them  in  order  to  have  the  blackboard  which  most  clearly  supports  the 
HIGH  confidence  rating  labeled  as  FACT0R1.  The  next  one  would  be 
FACT0R2  and  so  on  until  all  the  five  blackboards  were  ranked.  If  a 
blackboard  did  not  have  any  information  it  would  not  be  used  as  a 
FACTOR.  In  case  of  ties,  where  SYSBoard : EXPNUMBER  is  4  and 
DETECTBoard : EXPNUMBER  might  also  be  4,  the  precedence  is  decided  by 
a  FACTORLIST  which  is  set  inside  each  confidence  level.  Therefore, 
each  confidence  level  can  rank  the  evidence  in  a  different  priority, 
so  that  HIGHConf idence  may  list  DETECTBoard  first,  followed  by 
SYSBoard  whereas  LOWConf idence  lists  them  in  the  reverse  order.  This 
is  determined  heuristically ,  since  LOWConf idence  would  require 
confirmation  that  the  sensor  network  is  in  good  shape  to  detect  any 
missile  event  and  is  not  crippled;  while  for  HIGHConf idence  one  can 
assume  that  the  sensor  system  is  functioning  correctly  and  the  most 
important  factor  is  the  detected  missile  heading.  The  FACT0R1 
through  FACTORS  set  by  the  HIGH  and  LOWRanking  rule  sets  are  stored 
in  F.XPLA INBoard ,  which  is  a  blackboard  whose  function  is  to  explain 
an  event.  Having  completed  all  the  instance  variables  that  comprise 
the  EXPLAINBoard ,  one  can  now  see  all  the  contents  of  EXPLAINBoard : 

• 
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(EXPLAINBoard 

FACT0R1  [Blackboard  which  best  supports  the  confidence 

level  being  processed.] 

FACT0R2  FACT0R3  [Other  blackboards  in  ranked  order  that  are 

FACT0R4  FACTORS  set  in  FACTORLIST  and  are  HIGH  or  LOWRanking] 

COMMENT  [Comment  from  Speculate  if  special  case  triggered] 

EXPNUMBER  [indicates  in  numerical  form  the  special  case  which 

triggered  the  COMMENT]  ) 

Following  BoardVoting,  the  ith  confidence  level  may  call 
Speculate  to  determine  if  any  special  cases  such  as  a  first  strike, 
widespread  sabotage  or  a  test  condition  either  staged  by  THEM  or 
perhaps  erroneously  by  US.  Speculate  checks  all  the  appropriate 
indicators  and  only  returns  a  COMMENT  and  EXPNUMBER  if  one  of  the 
special  conditions  are  triggered.  Having  confirmed  the  confidence 
level  and  run  Speculate  to  determine  if  any  special  cases  might  be 
in  effect,  the  ith  confidence  level  can  now  be  used  to  complete  the 
ADS-2  message  and  explain  its  reasoning. 

Having  filled  out  the  five  factors  in  EXPLAINBoard  with  either 
HIGH  or  LOWRanking,  the  ith  confidence  level  provides  an  explanation 
capability  with  two  layers  by  calling  on  the  Explain  and  Explain2 
rulesets.  Exp  Lain  is  invoked  in  response  to  MWO  "WHY"  queries  and 
takes  each  FACTOR  in  ranked  order  from  the  EXPLAINBoard,  and  shows 
the  abstract  COMMENT  associated  with  each  board  to  the  user. 

Explain2  provides  the  second  layer  of  explanation,  in  response  to 
"HOW"  queries  and  represents  the  second  level  of  explanation,  that 
is  the  tabulated  results  of  each  block  and  message  to  the  user. 

Thus,  when  the  MWO  requests  an  explanation,  the  COMMENT  associated 
with  the  blackboard  labeled  as  FACT0R1  which  most  supports  the 
confidence*  level  is  shown  to  the  MWO.  The  MWO  can  then  ask  another 


WHY  question,  upon  which  he  is  shown  the  COMMENT  from  the  FACT0R2 
blackboard  and  so  on.  When  the  MWO  asks  HOW  questions,  the  detailed 
data  on  each  blackboard  such  as  the  contents  of  the  SYSBoard  are 
shown  to  the  MWO.  Once  the  explanation  is  completed,  the  ADS-2  and 
the  ith  level  confidence  processing  is  completed. 

Differentiating  the  ith  Confidence  Level 

There  are  five  confidence  level  rule  sets  in  SENTINEL,  each  one 
corresponding  to  the  level  of  EXTHIGH,  HIGH,  MIXED,  LOW  and  EXTLOW. 
MIXEDConf idence  is  the  smallest  and  simplest  rule  set  of  the  five. 
Basically,  MIXEDConf idence  tries  to  decide  whether  confidence  level 
processing  should  be  HIGH  or  LOW.  At  this  point  in  SENTINEL 
processing  there  is  enough  information  available  to  make  a 
reasonable  attempt  to  decide  whether  confidence  is  HIGH  or  LOW. 
MIXEDConf idence  calls  only  on  BoardVoting  to  decide  which  path  to 
take.  If  there  is  no  clearcut  majority  consensus  by  all  the 
blackboards,  the  TRENDBoard  will  provide  the  required  information. 
LOWConf idence  is  attempting  to  resolve  a  paradox;  if  there  are 
enough  indications  for  a  second  pass  satellite  message  why  is 
confidence  LOW?  LOWConfidence  calls  on  BoardVoting  to  confirm  the 
confidence  level,  which  can  be  upgraded  to  HIGH  if  the  number  of  UP 
votes  are  in  the  majority,  while  LOWRanking  provides  the  ranking  of 
the  factors  on  EXPLAINBoard ,  and  Speculate  is  invoked  to  determine 
if  test  conditions  or  unusual  system  outages  are  responsible  for  the 


ambiguous  indications  encountered  so  far. 

EXTLOftConf idence  differs  from  LOWConfidence  by  trying  to  get 


the  MWO  to  delete  this  event  from  the  EVENTLIST.  If  the  EXTLOW 
confidence  is  not  verified  by  BoardVoting,  the  confidence  level  is 
returned  to  LOW.  A  transfer  factor  is  set  so  that  confidence  levels 
can  be  changed  only  once,  to  preclude  an  EVENT  which  initially  was 
ranked  as  EXTLOW,  to  be  changed  to  LOW  and  perhaps  even  to  HIGH 
otherwise.  The  premise  behind  EXTLOWConf idence  is  that  a  spurious 
report  has  occurred  that  does  not  represent  an  actual  missile 
launch,  and  attempts  to  convince  the  MWO  to  place  this  EVENT  into  an 
inactive  status  by  deleting  it  from  the  EVENTLIST.  To  do  this, 
EXTLOWConf idence  runs  LOWRanking  and  then  shows  the  user  the 
abstract  COMMENT  of  the  three  lowest  factors  as  shown  below: 

SENTINEL  DECISION  AID  CONFIDENCE  is:  EXTLOW 

EXTLOW  CONFIDENCE  level  confirmed.  {Outcome  of  BoardVoting"} 

REPORTING  SENSOR  CHECK  reveals  £C0MMENT  from  MATCHBoarcTJ 

CREDIBILITY  of  Sensor:  VERY  POOR 

Trend  of  Evidence  is:  POSITIVELY  DOWN  {COMMENT  from  TRENDBoardJ 

INTEL  Reports:  NO  indications  of  ATTACK  flNTELBoard  COMMENT} 

Based  on  the  factors  explained  above,  SENTINEL  recommmends  that  this 
event  be  deleted  from  the  active  EVENTLIST.  If  you  concur  type  T, 
otherwise  type  NIL  to  continue  processing. 

If  the  MWO  selects  NIL  above,  then  EXTLOWConf idence  processes 
the  ADS-2  report  in  a  manner  quite  similar  to  LOWConf idence. 

However,  EXTLOWConf idence  will  not  use  Speculate  to  attempt  to 
determine  an  explanation  as  LOWConf i dence  does  because  there  will 
not  be  sufficient  reliable  information  to  speculate  on. 

HIGHConf idence  does  not  use  Speculate  either,  since  it  assumes  a 
threat  is  present  unless  proved  otherwise.  HIGHConf idence  runs 


through  BoardVoting  to  verify  the  confidence  level  and  then  spends 
more  time  reasoning  about  what  type  of  missile  is  present.  Unless 
proved  otherwise,  the  longer  range  TYPE2  missile  with  multiple 
warheads  is  assumed.  HIGHConf idence  is  more  concerned  about  the 
missile  type  since  there  appears  to  be  ample  evidence  for  an  actual 
missile  launch,  and  more  processing  time  will  be  spent  examining  the 
HIVALTAG  and  the  BSSTAG  to  verify  the  ADS-2  prediction  of  what  BSS 
sites  will  detect  this  event  and  to  predict  what  type  of  threat  is 
facing  the  C3  network  high  value  targets.  Knowing  the  type  of 
missile  present  gives  SENTINEL  the  critical  range  information  that 
along  with  the  reputed  missile  heading  can  eliminate  possible 
targets  if  they  are  situated  beyond  the  maximum  range  of  the 
missile. 

EXTHIGHConf idence  obviously  represents  an  actual  event  that 
could  potentially  be  a  hostile  threat,  but  it  must  be  tempered  by 
caution.  For  example  a  test  launch  by  THEM  could  also  result  in 
EXTHIGH  confidence  or  if  a  US  sensor  site  was  running  exercise 
tests,  an  EXTHIGH  confidence  could  result  from  a  simulation  that 
could  be  mistaken  for  an  actual  launch  event.  This  was  shown  to  be 
the  cause  of  a  recent  NORAD  false  alarm  that  triggered  public 
apprehension  (21:27).  Once  its  confidence  level  is  verified  by 
BoardVoting,  EXTHIGHConf idence  pays  particular  attention  to 
Speculate  as  it  examines  the  blackboards  for  evidence  of  a  TEST, 
FIRSTRIKE  or  SABOTAGE  event.  SABOTAGE  is  a  difficult  state  to  reason 
with,  since  a  "blinding"  of  the  sensor  system  by  sabotage  would 
increase  tjie  possiblity  of  a  hostile  event,  but  this  is  offset  by  a 


somewhat  lower  confidence  level  that  could  result  from  the  damaged 
state  of  the  sensor  system.  FIRSTSTRIKE  indications  are  considered 
present  when  there  is  a  large  amount  of  evidence  for  a  launch 
detection  whose  heading  represents  a  threat  to  C3  nodes.  Finally, 
TEST  examines  the  SYS  status  to  determine  which  US  sites  may  be 
running  tests  on  the  system.  EXTHIGHConf idence  then  calls  on 
HIGHRanking  to  place  the  factors  on  EXPLAINBoard  in  a  fashion 
suitable  for  explanation.  At  this  point,  the  only  thing  lacking  from 
filling  out  the  ADS-2  report  is  a  hypothesis.  The  MWO  must  decide 
whether  the  event  represents  a  HOSTILE,  TEST,  UNKNOWN  or  UNRESOLVED 
event  which  is  the  subject  of  the  next  section. 


Hypothesis  Selection 

To  select  a  hypothesis,  SENTINEL  uses  the  concept  of  feature 
sets  and  distance  from  a  prototype  to  decide  what  hypothesis  the 
event  most  closely  fits.  This  is  a  often  used  technique  in  pattern 
recognition  cases  discussed  in  the  literature: 


Inherent  in  the  processing  of  information  acquisition  is  the 
process  of  pattern  recognition.  This  process  generally  involves  two 
phases:  extraction  and  identification.  A  given  stimulus  is  "coded" 
in  terms  of  its  features.  The  term  "features"  implies  such 
characteristics  as  angles,  lines,  or  edges.  .  .  In  the 
identification  phase,  the  sensory-perceptual  system  classifies  the 
stimulus  object.  The  way  in  which  this  is  often  assumed  to  occur  is 
by  a  weighted  matching  of  the  current  feature  list  against  a  likely 
set  of  prototypes  in  long  term  memory  with  the  input  being 
classified  according  to  the  name  of  the  best  matching  prototype 
(17:646). 


SENTINEL  is  attempting  to  duplicate  the  human  capabilities  of 
pattern  recognition,  by  providing  a  separate  prototype  for  each 


hypothesis  as  a  rule  set.  These  rule  sets  are  weighted  matching  of 
the  factors  extracted  from  the  event  list  and  the  filled 
blackboards.  As  shown  in  figure  19  there  is  a  separate  rule  set  for 
each  hypothesis,  which  consist  of  the  following;  a  HOSTILE  event  is 
one  where  the  missile  is  directed  towards  the  country  of  US.  TEST 
events  are  those  which  have  detected  a  missile  launch  whose 
trajectory  will  definitely  pass  outside  the  US,  while  UNRESOLVED  is 
an  event  with  a  trajectory  that  may  or  may  not  be  directed  towards 
US.  UNKNOWN  events  are  those  events  where  insufficient  information 
is  available  to  fit  the  other  cases.  To  decide  which  hypothesis  fits 
the  event  and  thus  identify  the  event,  each  confidence  level 
examines  the  results  of  four  rule  sets  as  shown  in  figure  19.  Each 
confidence  level  then  selects  a  hypothesis  based  on  a  decision 
threshold  that  is  particular  to  each  confidence  level. 

HIGH  and  EXTHIGHConf idence  are  more  concerned  with 
differentiating  a  HOSTILE  from  a  TEST  hypothesis,  while  LOW  and 
EXTLOWConf idence  are  more  concerned  with  the  distance  between 
UNKNOWN  and  UNRESOLVED.  Some  crossover  may  occur  however,  so  each 
confidence  level  does  examine  the  distance  to  all  four  hypotheses. 
The  four  hypothesis  rule  sets  are  a  "textbook  example"  or  prototype 
of  each  type  of  event.  HOSTILE  for  example  represents  a  high 
probability  of  a  launch  coupled  with  intelligence  indications 
warning  of  attack  and  a  high  threat  to  C3  nodes  or  US  targets.  TEST 
would  have  similar  indications  except  that  the  threat  to  C3  nodes 
would  be  quite  low  and  the  possibilities  of  BSS  detection  would  be 
marginal . ’Each  of  these  hypotheses  consider  12  factors,  and  of  these 


12  factors,  2  of  them  are  weighted  more  heavily  than  the  others.  By 
having  equal  number  of  factors  and  an  equal  number  that  are  more 
heavily  weighted,  the  four  hypotheses  can  be  said  to  be  normalized. 
The  two  factors  with  additional  weighting  are  the  ones  that  are  more 
crucial  for  hypothesis  separation.  For  example,  to  differentiate 
TEST  from  HOSTILE,  the  possibilities  of  detection  and  the  threat  to 
C3  nodes  are  weighed  more  heavily.  These  heuristics  have  to  be 
chosen  carefully  however.  It  would  be  tempting  to  just  use  the  more 
heavily  weighted  factors  to  clearly  separate  all  four  hypotheses, 
but  this  is  not  possible  because  not  all  events  result  in  the  same 
amount  of  information.  For  example,  if  the  heading  is  XXX  or  not 
discernible,  which  can  be  typical  of  an  UNKNOWN  event,  the  threat  to 
C3  nodes  and  the  possibilities  of  detection  are  NIL  since  without  a 
heading  no  information  is  available.  Restricting  the  factors  to  just 
detection  and  C3  threat  information  is  not  a  valid  approach.  To 
separate  UNKNOWN  from  UNRESOLVED,  TrendBoard  and  the  high  value 
threat  are  used,  and  are  weighted  more  heavily.  It  is  interesting  to 
note  that  the  MWO  using  SIMCOPE  does  share  the  limitation  of  not 
being  able  to  predict  detection  possibilities  by  using  the  SIMCOPE 
screen,  since  when  the  heading  is  XXX  no  direction  of  heading  and 
consequently  no  FAN  appears  either.  Therefore  this  limitation  is  not 
just  a  SENTINEL  limitation  but  one  central  to  SIMCOPE  as  well. 

All  four  hypotheses  are  then  run  and  the  number  of  factors 
triggered  by  each  are  maintained  in  the  variables:  UNKNOWNNUM, 
TESTNUM,  HOSTILENUM  and  UNRESOLVEDNUM.  A  variable  called  THREATNUM 
is  also  eltablished  by  HOSTILE  and  it  tabulates  a  definite 


indication  of  THREAT  by  examining  the  DETECTBoard,  the  TRENDBoard 
and  the  high  value  threat.  NOTHREATNUM  looks  at  these  factors  plus 
the  MATCHBoard  to  establish  how  much  the  threat  can  be  discounted. 
When  HOSTILE  is  invoked  THREATNUM  is  0  and  is  counted  up  as  each 
threat  is  triggered  by  a  rule  while  NOTHREATNUM  is  invoked  with  TEST 
or  UNKNOWN.  THREATNUM  is  a  representation  of  how  much  belief  that 
the  event  is  a  threat  whereas  NOTHREATNUM  is  a  representation  of  how 
much  evidence  there  is  in  the  event  to  discount  the  threat.  Having 
run  thorugh  all  four  hypotheses  and  come  up  with  a  value  for  each  of 
the  six  variables,  each  confidence  level  can  now  select  the 
appropriate  hypothesis  through  a  decision  threshold. 

As  each  hypothesis  is  run  the  one  which  has  the  most  factors 
triggered  is  stored  in  HYP01  while  the  second  leading  hypothesis  in 
terms  of  factors  triggered  is  called  HYP02,  The  other  two  hypotheses 
are  discarded  and  SENTINEL  is  concerned  only  in  the  distance  or  the 
number  of  factors  that  distinguished  HYP01  from  HYP02.  If  the 
difference  is  3  factors  or  more,  the  distance  separation  is  held  to 
be  suffic  lent  t"  pick  HYP01  outright.  If  the  distance  is  less  than 
3,  each  separate  •mtidence  level  uses  heuristics  to  determine  what 
the  hypothesis  is.  In  all  cases  a  single  hypothesis  is  selected.  The 
HIGH  and  KXTHIGIIConf idences  assume  that  a  threat  is  present  unless 
NOTHREATNUM  is  high,  and  try  to  clearly  separate  the  TEST  and 
HOSTILE  hypothesis.  On  the  other  hand,  LOW  and  EXTLOWConf idence 
assume  that  there  is  no  threat,  unless  THREATNUM  is  high  and  pay 


more  attention  to  resolving  the  distance  between  UNKNOWN  and 
UNRESOLVED  events.  In  either  case,  this  is  a  potential  spot  for 


further  developement  and  use  of  heuristics,  to  extend  the  size  and 
separation  of  each  feature  set  hypothesis  and  by  extending  the  use 
of  Speculate  and  other  functions  to  not  just  determine  what  is 
happening,  but  also  to  determine  exactly  what  further  information 
based  on  the  circumstances  would  be  most  beneficial  to  the  MWO.  At 
this  point,  SENTINEL  is  finally  in  a  position  to  answer  the  ADS-2 
report  and  explain  its  answers  using  two  levels  of  explanation. 

ADS-2  Report  Output 

At  this  point,  the  ADS-2  report  will  be  filled  out  by  SENTINEL 
in  an  identical  manner  to  which  the  MWO  fills  out  the  SIMCOPE 
report.  The  user  is  then  free  to  select  further  explanation  and  to 
examine  either  of  the  two  levels  of  each  blackboard.  The  filling  out 
of  the  ADS-2  report  is  shown  below: 


ADS  PASS  2  EVENT 1  [the  current  EVENTMATCH] 

1.  DETECTED:  142913  [PRESENTIME  maintained  by  METASCHEDULER] 

2.  ADS:  SOUTH  [the  reporting  satellite] 

3.  EVENT  TYPE:  HOSTILE  [the  hypothesis  selected  ] 

4.  BSS  DETECT:  6  [the  BSS  site  that  will  detect  the  event] 

5.  THREAT:  YES  [Based  on  THREATNUM  and  NOTHREATNUM] 

6.  CONFIDENCE:  HIGH  [confidence  level  processed] 

WARNING!  FIRST  STRIKE  INDICATIONS  ARE  PRESENT,  [output  of  Speculate] 

If  you  wish  further  explanation  type  T  otherwise 
type  NIL  to  continue  processing. 

If  the  MWO  selects  option  T  above  a  short  explanation  of  how  the 
two  levels  of  explanation  are  invoked  and  used.  Recall  that  the 
first  explanation  capability  is  invoked  by  running  the  Explain 
ruleset  and  is  triggered  by  WHY  questions  whereas  the  second,  or 


detailed  layer  of  questions  is  invoked  by  using  Explain2  and  by 
answering  HOW  questions.  The  sample  dialogue  from  SENTINEL  below 
illustrates  the  process: 


Explanation  for  ADS-2  processing  is  in  two  layers.  The  first 
abstract  layer  can  be  accessed  by  typing  in  WHY  followed  by  a 
carriage  return  <CR>. 

The  second  detailed  layer  is  can  be  accessed  by  from  the  first  layer 
by  typing  in  HOW  <CR>.  Typing  NIL  <CR>  exits  the  program. 

Type  in  WHY  or  NIL  now: 

[WHY] 

Trend  of  Evidence  is:  POSITIVELY  UP 

Type  in  HOW  for  detailed  explanation  or  WHY  for  further  abstraction, 
NIL  to  exit. 

[HOW] 

Confidence  of  the  ADS-1  Message:  HIGH 
Confidence  of  the  ADS-2  Message:  HIGH 

Reported  Sensor  CAPABILITY  on  the  FIRST  PASS  is:  PARTIAL 
The  Sensor  CONFIDENCE  on  the  FIRST  PASS  is:  HIGH 

The  Reported  SECOND  PASS  Sensor  CAPABILITY  is:  FULL 
SECOND  PASS  Sensor  CONFIDENCE  is:  HIGH 

The  Infrared  Intensity  Reading  reported  on  the  FIRST  PASS  is:  TYPE2 
SECOND  PASS  IR  Reading:  IMPROVES  over  first  pass  reading. 

SENTINEL  concludes  launcher  type  is:  TYPE2 

Type  in  WHY  for  more  explanation,  NIL  to  exit: 

[WHY] 

BSS  Detection  Opportunities  are:  VERY  STRONG 
Occur ing  at  BSS  sites:  BSS4  BSS5  BSS6 
Threat  to  C3  Nodes:  VERY  HIGH 

Type  in  HOW  to  see  details,  WHY  to  continue,  NIL  to  exit: 

[NIL] 


The  order  in  which  the  explanation  is  given  is  set  by  the 
numbered  factors  on  the  EXPLAINBoard  by  using  HIGHRanking  or 
LOWRankin^.  At  first,  it  was  only  necessary  to  run  one  or  the  other 


ranking  rule  sets.  For  example  HIGH  and  EXTHIGH  always  used 
HIGHRanking,  while  LOW  and  EXTLOW  would  use  LOWRanking.  In  operation 
however,  it  was  necessary  to  modify  this  strategy.  It  became  obvious 
in  practice  that  "context  dependent"  explanation  was  needed  for 
logical  consistency.  When  explaining  a  TEST  event  it  was  more 
consistent  to  explain  what  factors  were  low  such  as  DETECTBoard 
rather  than  starting  off  by  explaining  all  the  "strong"  factors 
which  are  quite  similar  to  HOSTILE.  This  would  result  in  confusion 
for  the  MWO  since  the  explanation  for  a  HOSTILE  or  TEST  event  would 
not  usually  be  differentiated  until  the  fourth  or  fifth  factor  was 
explained.  In  a  similar  fashion,  HOSTILE  is  always  explained  by 
HIGHRanking  since  it  is  more  essential  to  place  the  information  in 
an  order  which  logically  places  the  "strong"  factors  supporting  the 
HOSTILE  hypothesis  ahead  of  the  lower  numbered  factors  which  are 
shown  to  the  later  to  the  MWO.  A  hypothesis  of  HOSTILE,  no  matter 
what  the  confidence  level  is  always  explained  using  HIGHRanking, 
while  a  TEST  event  regardless  of  the  confidence  level  is  ranked  by 
LOWRanking  to  explain  the  output.  This  brings  the  ADS-2  processing 
to  a  close,  and  leaves  only  the  remaining  BSS  radar  site  messages  to 
be  processed  which  is  the  subject  of  the  next  chapter. 
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V.  Processing  of  the  Third  Pass  Radar  Report  and  Conclusion 

The  processing  of  the  third  pass  BSS  site  report  will  use  many 
of  the  concepts  that  were  covered  in  the  previous  chapter.  The 
blackboard  model  which  led  to  the  two  layer  explanation  capability 
is  reused  by  incorporating  a  few  modifications.  The  BSS  message  is 
the  report  which  describes  the  detection  of  launched  objects  at  a 
BSS  radar  site.  The  BSS  site  notifies  the  MWO  of  the  time  of 
detection,  the  number  of  objects  tracked,  whether  trajectory 
stability  is  present,  along  with  a  reported  heading  and  a  prediction 
for  impact  time  of  the  object  or  objects.  When  more  than  one  object 
has  been  detected,  the  BSS  report  will  give  the  heading  and  impact 
time  only  for  the  center  object.  On  the  SIMCOPE  screen,  the  MWO 
still  sees  a  single  fan  even  if  multiple  objects  are  present.  And  in 
the  same  manner  as  the  ADS  satellite  report,  the  BSS  site  also 
issues  a  site  confidence  rating  of  0  through  9.  Having  recieved  a 
BSS  report,  SENTINEL  must  use  some  mechanism  to  decide  how  to  match 
the  new  BSS  report  with  an  existing  EVENT  from  the  EVENTLIST. 

Matching  BSS  Reports 

As  shown  in  figure  20,  BSSHANDLER  is  the  first  function  to 
process  the  BSS  message,  after  METASCHEDULER  has  routed  it. 
BSSHANDLER  decomposes  the  BSS  report  into  its  constituent  parts,  and 
then  attempts  to  match  it.  There  are  three  steps  that  could  result 


in  a  BSS  match.  In  order  to  match  BSS  messages  to  the  EVENT  it  was 
necessary  Eo  add  P2HYP0,  the  determined  ADS-2  hypothesis  that  was 
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associated  with  this  event,  and  P2HEADING  to  the  EVENT  property 
list.  Before  covering  the  automatic  matching  by  BSSHANDLER,  it  is 
instructive  to  review  what  is  now  present  in  an  EVENT  property  list 
after  undergoing  both  ADS-1  and  ADS-2  processing. 


(EVENTNUMBER  P1LS 
P1C0NFIDENCE 
P1SENS0R 
P1IRTYPE 
P2C0NFIDENCE 
P2SENS0R 
P2TYPE 
P2HYP0 
P2HEADING 
P2TIME 


[LAUNCHSITE  it  has  been  matched  to,  such  as  LS4) 
[EXTHIGH,  HIGH,  MIXED,  LOW  or  EXTLOW] 

[first  pass  numerical  sensor  rating] 

[TYPE1 ,  TYPE2,  UNKNOWN  or  INDISTINCT] 

[resulting  ADS-2  confidence  level] 

[second  pass  numerical  sensor  rating] 

[MATCH,  NOMATCH  or  MISMATCH] 

[HOSTILE,  TEST,  UNKNOWN  or  UNRESOLVED] 

[reported  ADS-2  heading  of  object] 

[time  at  which  BSS  report  expected]  ) 


The  key  to  matching  BSS  reports  to  an  EVENT  will  be  matching  the 
P2HEADING  and  the  P2TIME  to  the  object  heading  and  time  of  report  of 
the  BSS  message.  However,  the  key  to  processing  the  remainder  of  the 
BSS  report  will  be  P2HYP0.  By  the  time  a  BSS  report  has  been 
received,  the  confidence  level  is  no  longer  a  major  issue. 

Obviously,  if  two  separate  satellite  reports  and  a  radar  site  report 
have  been  received  concerning  a  launch  event,  there  can  be  little 
remaining  doubt  that  an  actual  launch  event  has  occured  and  is  in 
progress.  The  key  to  further  processing  will  be  the  whether  the 
EVENT  can  still  be  interpreted  as  a  HOSTILE  or  a  TEST  event.  But 
first  the  BSS  message  must  be  matched  to  an  EVENT. 

BSSHANDLER  will  automatically  match  a  BSS  message  to  an  EVENT 
based  first  on  two  criteria:  the  P2TIME  must  be  within  two  minutes 
of  the  BSS  detection  time  and,  the  BSS  site  would  normally  be  able 
to  detect  this  heading  of  an  object  launched  from  the  P1LS  of  the 
EVENT  in  question.  If  BSS  site  #7  reported  an  object  with  a  heading 


of  207  and  the  P1LS  of  EVENT4  was  LS6,  the  BSSTAG  of  LS6  could  be 


checked  to  insure  BSS  coverage  was  compatible.  If  the  BSSTAG  of  LS6 
included  this  element,  (BSS#7  134  167),  EVENT4  could  be  removed  as  a 
candidate  for  BSS  matching  since  the  maximum  heading  from  LS6  that 
could  be  detected  by  BSS  site  7  would  be  167  degrees,  whereas  the 
BSS  heading  is  207  degrees.  For  those  events  which  can  meet  the 
first  two  criteria,  the  one  whose  P2HEADING  is  closest  to  the  BSS 
heading  will  be  announced  as  the  EVENTMATCH.  When  no  automatic  match 
occurs,  BSSHANDLER  calls  on  BSSEVENTCHECK  to  complete  the  match  if 
possible. 

BSSEVENTCHECK  first  makes  a  "best  guess"  at  what  the  EVENTMATCH 
is  by  relaxing  the  time  consideration  for  up  to  5  minutes  deviation 
from  P2TIME  and  by  looking  for  the  best  combination  of  TIME  and 
HEADING  criteria.  The  "best  guess"  is  announced  to  the  MWO,  who  is 
shown  the  P2TIME  and  P2HEADING  and  the  BSS  time  and  heading.  The  MWO 
is  free  to  accept  this  match  or  to  look  at  the  remaining  EVENTs.  For 
the  remainder  of  the  events,  BSSEVENTCHECK  checks  through  the 
EVENTLIST  and  presents  to  the  MWO  those  EVENTs  which  have  been 
through  both  ADS-1  and  ADS-2  processing  and  are  candidates  for  BSS 
matching  as  shown  below: 

Attempt  to  match:  EVENT4 

P2HEADING:  206  P2TIME:  145600 

HEADING  reported  by  BSS:  207  BSS  Detection  Time:  145730 

Range  of  coverage  for  this  BSS  site  from  the  reported  launch  site 
extends  from  200  degrees  to  189  degrees. 

Type  T  to  MATCH  this  event,  NIL  to  see  another  attempt  to  match 
or  STOP  te  EXIT. 


When  a  BSS  match  is  made,  P2TIME  is  deleted  from  the  EVENT  in 
question.  Thus,  an  EVENT  that  has  a  NIL  for  P1TIME  and  P2TIME  has 
gone  through  all  3  stages  of  SENTINEL  processing,  from  ADS-1  and 


ADS-2  and  through  BSS.  Recall  that  an  EVENT  with  a  value  for  P1TIME 
has  only  undergone  ADS-1  processing.  Having  secured  an  EVENTMATCH 
for  the  BSS  report,  further  processing  can  now  occur  that  will  be 
tied  to  the  blackboard  concepts  used  previously. 

BSSBoard  Processing 

Having  made  a  successful  match,  BSSHANDLER  fills  the 
blackboards  in  the  same  manner  that  ADS-2  processing  did,  by  running 
the  board  filling  rule  sets  such  as  SensorCheck,  DetectCheck  and 
TargetCheck.  There  are  a  few  differences  however,  at  the  BSS  level 
the  output  of  the  DETECTBoard  which  determined  which  BSS  site  could 
or  could  not  detect  is  somewhat  redundant.  Therefore,  BSSTargetCheck 
is  run  in  place  of  HeadingCheck .  The  BSSTargetCheck  rule  set 
processes  the  FANCALL  targets  in  the  same  manner  that  TargetCheck 
did  for  HIVALTAG  during  ADS-2  processing.  The  FANCALL  targets  are 
checked  to  see  if  they  fall  into  three  lists.  The  first  list, 
WILLDETECT  are  for  those  targets  that  lie  within  1  degree  from  the 
reported  heading.  CLOSEDETECT  are  those  targets  that  lie  within  five 
degree  of  the  object  heading,  and  thus  within  manuvering  range  of  a 
TYPE2  missile,  while  FARDETECT  are  those  targets  which  lie  up  to  10 
degrees  away  from  the  heading.  There  is  also  an  associated  NUMBER 
variable  such  as  CLOSENUMBER,  that  records  the  number  of  targets  in 
each  list?  A  target  can  only  be  on  one  of  these  lists  at  a  time. 


These  instance  variables  are  recorded  on  the  BSSBoard  which  is  a 
blackboard  solely  for  the  purposes  of  BSS  processing.  Rather  than 
write  over  the  values  of  an  unused  blackboard  at  this  level  such  as 
DETECTBoard,  a  new  board  was  the  most  convenient  and  logical 
extension  of  the  blackboard  concept  covered  in  the  previous  section. 

In  order  to  make  the  BSSBoard  complete,  a  COMMENT  and  an 
EXPNUMBER  must  also  be  included.  Accordingly,  BSSTrendCheck  uses  the 
results  of  BSSTargetCheck  to  produce  a  BSSBoard  COMMENT  and 
associated  EXPNUMBER.  If  the  WILLNUMBER  of  BSSBoard  is  greater  than 
zero,  the  COMMENT  would  be:  "Threat  to  US  targets:  VERY  LIKELY,"  and 
the  EXPNUMBER  would  be  4  since  this  would  be  the  state  most 
indicative  of  a  hostile  event.  In  certain  cases  however,  the  threat 
to  US  targets  could  be  quite  LOW,  while  the  threat  to  the  high  value 
targets  could  be  quite  HIGH  which  should  result  in  a  high  EXPNUMBER. 
Thus,  BSSTrendCheck  also  examines  the  threat  to  high  value  targets, 
which  will  override  the  EXPNUMBER  for  BSSBoard  if  necessary. 

As  its  name  implies,  the  BSSTrendCheck  also  checks  the  trend  of 
evidence  to  observe  whether  it  has  increased  or  decreased  from  the 
ADS-1  to  ADS-2  to  BSS  message.  BSSTrendCheck  uses  BSSensorCheck  to 
essentially  compute  a  P3SENS0R  rating  which  is  not  embedded  in  the 
EVENT.  Instead  the  P3SENS0R  rating  can  be  compared  with  the  P1SENS0R 
and  the  P2SENS0R  rating  to  observe  if  the  trend  of  evidence  is 
rising  or  falling.  BSSTrendCheck  also  checks  the  stability 
indication  and  the  number  of  objects  detected  to  see  if  it  confirms 
or  denies  the  previous  PIIRTYPE  and  P2TYPE  indications  of  what  type 
of  launcher  is  involved.  A  maneuvering  warhead  or  one  with  multiple 


launch  objects  would  be  indicative  of  a  TYPE2  rather  than  a  TYPE1 
missile.  Almost  the  only  way  to  secure  a  DENIAL  of  missile  launcher 
type  would  be  an  EVENT  which  had  detected  a  TYPE1  missile  on  the 
first  pass,  achieved  a  MATCH  or  NOMATCH  P2TYPE  but  yet  had  a 
multiple  object  or  maneuvering  detection  on  the  BSS  report.  The 
COMMENT  associated  with  TRENDBoard  such  as  "Trend  of  Evidence:  UP" 
will  stay  the  same  but  will  reflect  the  BSS  message  contribution. 
Having  filled  all  the  previous  blackboards  and  filled  the  new 
BSSBoard,  the  only  remaining  step  for  BSSTrendCheck  is  to  route  the 
EVENTMATCH  to  the  appropriate  hypothesis  processing  rule  set.  By 
examining  the  P2HYP0  of  the  EVENTMATCH,  BSSTrendCheck  will  then 
invoke  one  of  the  four  hypothesis  rule  sets. 


Hypothesis  Processing 

The  key  to  BSS  processing  is  the  value  of  P2HYP0  of  the 
EVENTMATCH,  which  can  invoke  one  of  the  four  hypothesis  rule  sets: 
BSSTEST,  BSSHOSTILE,  BSSUNRESOLVED  and  BSSUNKNOWN.  Each  one  of  them 
first  revises  the  confidence  level  by  invoking  BoardVoting  as  was 
done  previously  for  ADS-2  processing,  and  as  shown  in  figure  21.  If 
the  number  of  HIGHVOTEs  is  large  enough,  the  confidence  level  could 
be  upgraded.  These  cases  were  kept  to  a  minumum  since  confidence 
levels  are  not  as  vital  for  BSS  processing  as  they  were  for  ADS-2 
processing.  What  is  vital  is  the  hypothesis,  which  can  also  be 
revised  by  the  output  of  BSSBoard.  If  the  hypothesis  is  TEST  for 
example,  but  the  EXPNUMBER  on  the  BSSBoard  is  HIGH,  indicating  a 
serious  threat  to  US  targets,  the  hypothesis  is  set  to  HOSTILE  and 
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Figure  21.  Completion  of  BSS  Message  Processing  Within  Each  BSSHYPOTHESIS  Rule  Set 
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BSSHOSTILE  is  run  instead.  A  flag  called  HYFOTRANSFER  insures  that 
these  hypothesis  revisions  can  only  occur  once  to  avoid  the  problem 
of  infinite  loops  that  could  occur  with  multiple  hypothesis 
revisions.  While  BSSTEST  assumes  there  is  no  threat  unless  proved 
otherwise,  BSSHOSTILE  assumes  a  threat.  BSSUNRESOLVED  and  BSSUNKNOWN 
attempt  to  secure  an  explanation  for  the  evidence  present  by  using 
Speculate  and  other  heuristics.  Generally  the  pattern  will  be  to 
force  the  hypothesis  to  either  TEST  or  HOSTILE  depending  on  the 
threat  or  lack  of  threat  the  launch  event  poses.  Having  confirmed 
the  resulting  hypothesis  the  BSS  report  can  be  answered  for  the  MWO, 
as  in  the  following  output: 

EVENT  considered:  HOSTILE  [from  BSSHOSTILE] 

BSS  EVENT 1  [ EVENT 1  is  the  EVENTMATCH] 

1.  DETECTED:  143317 

2.  BSS:  6 

3.  THREAT:  YES 

4.  LAUNCHER  TYPE:  TYPE2 

5.  OBJECTS  TRACKED:  1 

6.  VERY  LIKELY  TARGETS:  (HAYES,  LIDO)  [ BSSBoard : WILLDETECT ] 

7.  EST  IMPACT  TIME:  143538 

8.  CONFIDENCE:  EXTHIGH 

If  you  wish  further  explanation  type  T,  otherwise  type 
NIL  to  proceed. 

Item  6  which  describes  the  threat  to  US  targets  varies  according 
to  which  BSSBoard  list  is  not  empty.  A  filled  WILLDETECT  list 
results  in  the  line  above,  while  a  CLOSEDETECT  would  list  "LIKELY 
TARGETS"  and  a  FARDETECT  would  result  in  "POSSIBLE  TARGETS"  while  if 
all  these  lists  are  empty  result  in  the  line  "6.  POSSIBLE  TARGETS: 
NONE."  Once  the  MWO  is  shown  the  BSS  report  output,  the  two  layer 


explanation  capability  described  for  ADS-2  processing  is  also 
replicated  at  this  level.  Context  dependent  reasoning  also  occurs  at 
the  BSS  level,  so  that  a  HOSTILE  event  always  uses  HIGHRanking  to 
rank  order  the  blackboard  into  the  explanation  order  listed  in 
EXPLAINBoard .  When  no  threat  is  indicated  LOWRanking  is  used  to  set 
the  FACTORS  in  the  order  which  would  most  clearly  explain  to  the 
operator  why  no  threat  indications  are  present.  As  before  the 
explanation  capability  is  provided  by  the  Explain  and  Explain2  rule 
sets,  where  Explain  answers  the  "WHY"  queries  and  Explain2  responds 
to  the  operator's  "HOW"  questions.  Both  explanation  rule  sets  were 
modified  to  incoporate  the  BSS  processing.  The  only  major  changes 
were  to  have  the  trend  of  evidence  second  layer  explanation  include 
the  BSS  site  confidence  and  capability  along  with  the  determination 
that:  "BSS  report"  CONFIRMS  or  DENIES  "the  indicated  missile  type." 
Because  DETECTBoard  at  the  BSS  level  of  processing  does  not  offer 
much  information,  BSSBoard  was,, substituted  for  DETECTBoard  in  the 
order  of  explanation.  Thus,  to  explain  a  BSS  report,  one  of  the 
FACTORS  on  the  EXPLAINBoard  will  include  BSSBoard  but  not 
DETECTBoard.  To  illustrate  these  changes,  assume  that  the  operator 
has  requested  further  explanation  for  the  BSS  report  shown  above. 
What  the  MWO  could  see  for  the  explanation  of  the  BSSBoard  would  be 
the  following: 

THREAT  to  US  Targets:  HIGHLY  LIKELY 
THREAT  to  C3  Nodes:  HIGH 

Type  in  WHY  to  see  further  comments,  HOW  to  see  details 
of  the  above  or  NIL  to  exit. 


The  following  TARGETS  lie  within  1  degree  of  the 
reported  heading:  (RIVERTON  NORTHCITY  DELTA) 

THREAT  to  these  sites  is:  ALMOST  CERTAIN. 

The  following  TARGETS  lie  within  10  degrees  of  the 
reported  heading:  (PINEGROVE  OCENACITY) 

THREAT  to  these  sites  is:  POSSIBLE. 

These  C3  sites  lie  within  5  degrees  of  the 

reported  heading:  BRF 

THREAT  to  these  sites  is:  LIKELY. 

Type  in  WHY  to  see  further  comments,  HOW  to  see  details 
of  the  above  or  NIL  to  exit. 

[NIL] 

Finishing  the  BSS  message  explanation  brings  the  processing  for 
that  particular  EVENT  to  a  close  since  all  three  types  of  reports, 
ADS-1,  ADS-2  and  BSS  messages  have  been  matched.  At  this  point  the 
EVENT  is  deleted  from  the  EVENTLIST  since  it  is  no  longer  an  active 
EVENT  and  is  placed  in  the  EXPIREDEVENTLIST.  This  makes  the 
remainder  of  SENTINEL  processing  computationally  easier  since  each 
attempt  at  a  MATCH  involves  examining  each  EVENT  on  the  EVENTLIST. 

To  demonstrate  the  goal  of  computational  feasibility,  ten  worst  case 
trials  of  an  EVENT,  which  resulted  in  a  previously  unknown  launch 
site,  were  tracked  to  completion.  Bear  in  mind  that  the  time  listed 
below  is  processing  time,  and  excludes  the  time  spent  in  functions 
which  require  extensive  user  inputs  such  as  the  explanation 
capability . 

ADS-1:  31.4  seconds  ADS-2:  9.6  seconds  BSS:  8.3  seconds 

The  above  numbers  are  not  an  average,  they  are  the  longest  time 
it  took  for  any  of  the  ten  events.  The  relatively  large  amount  of 
time  spent  processing  the  ADS-1  message  is  due  to  the  polar 
representation  computations.  By  contrast  the  worst  case  times  for 
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EVENTS  which  resulted  in  automatic  matching,  and  thus  required  no 
polar  computations  was: 

ADS-1:  1.6  seconds  ADS-2:  5.8  seconds  BSS:  5.6  seconds 
For  a  system  that  has  not  been  optimized  for  speed,  this 
demonstrates  computational  feasibility.  Use  of  a  larger  or  faster 
processor  would  result  in  faster  response  times,  but  this  could  be 
negated  by  adding  more  targets,  launch  sites  and  processing  features 
to  SENTINEL.  Having  brought  SENTINEL  processing  to  a  close,  it  is 
now  appropriate  to  reflect  on  the  conclusions  and  some 
recommendations  for  further  research. 


Conclusions 

The  devlopment  of  SENTINEL  brings  to  mind  some  observations  that 
could  be  useful  for  further  expert  system  development  of  decision 
aids.  One  must  first  determine  the  appropriate  physical 
representation  of  the  system  under  consideration.  By  examining  all 
the  information  available,  some  method  of  representation  should 
emerge  as  a  logical  candidate.  In  the  case  of  SENTINEL,  the 
availability  of  only  headings  and  geographical  coordinates  made  a 
polar  representation  a  likely  and  logical  way  of  expressing  the 
SIMCOPE  world.  The  decision  aid  must  also  have  full  access  to  all 
the  information  available  to  the  operator  it  is  attempting  to  help. 
When  the  MWO  looks  at  the  SIMCOPE  graphical  display,  he  is  obtaining 
a  great  deal  of  information  that  SENTINEL  must  also  be  able  to 
"know."  By  using  the  SCENARIO  REPRESENTATION,  SENTINEL  is  also  able 
to  "know"* what  the  MWO  is  seeing  on  the  display.  The  use  of  a 
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forward  chaining,  rule  based  hypothesis  appears  to  be  appropriate 
for  SENTINEL  as  it  was  for  the  sensor  interpreting  expert  systems 
which  suggested  the  architecture.  An  important  factor  in  being  able 
to  complete  SENTINEL  was  the  fact  that  SIMCOPE  had  already 
quantified  and  abstracted  the  task  of  the  MWO.  In  this  manner,  not 
much  time  had  to  be  spent  finding  a  "domain  expert"  and 
understanding  the  domain  first.  It  would  be  an  interesting  study  to 
observe  if  expert  system  building  could  be  done  more  effectively  if 
the  "domain  expert"  was  asked  only  to  quantify  and  abstract  his  task 
independently  of  the  interview  process  and  brought  in  to  interrelate 
with  the  expert  system  builder  only  in  the  testing  and  refinement 
stage.  The  use  of  expert  system  building  tool  software  was  also 
quite  pivotal  in  assuring  the  completion  of  SENTINEL. 

The  use  of  numerical  methods  for  processing  helped  minimize  the 
number  of  rules  used  and  the  computational  time  required.  These 
numerical  methods  were  an  easier  way  of  combining  three  or  more 
factors  into  a  single  figure  of  merit,  and  were  suggested  by  the 
theory  of  endorsements  by  Paul  R.  Cohen.  Cohen's  theory  was  a  source 
for  several  ideas  used  in  SENTINEL,  such  as  the  ranking  of 
hypotheses  and  using  numerical  methods  of  combining  evidence.  ADS-1 
evidence  could  be  compared  and  ranked  in  SENTINEL  against  the  ADS-2 
or  BSS  data  for  a  launch  event.  The  use  of  the  pattern  recognition 
concept  of  feature  sets  and  prototypes  were  the  key  to  selecting  a 
hypothesis  and  were  a  more  conventional  way  of  dealing  with 
uncertainity  in  an  expert  system  without  resorting  to  "certainty 
factors"  or  to  somewhat  flawed  Bayesian  analysis.  The  remainder  of 
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SENTINEL  is  dominated  by  the  idea  of  using  abstaction  levels  to 
explain  its  output. 

Explanation  capabilities  of  expert  systems  have  traditionally 
consisted  of  showing  the  invoked  rules  which  led  to  a  particular 
conclusion  or  citing  references.  Neither  of  these  techniques  would 
have  been  satisfactory  for  SENTINEL.  By  recognizing  that  four  levels 
of  information  exist:  the  SIMCOPE  messages,  property  lists  of  the 
actors,  contents  of  the  blackboards,  and  the  abstract  comments 
associated  with  each  blackboard,  SENTINEL  could  offer  a  two  layer 
explanation  capability.  The  abstract  comments  are  not  quite  precise 
but  they  serve  a  useful  purpose  in  showing  a  readily  understandable 
message.  Indeed,  the  output  of  a  phrase  such  as:  "SENSOR  SYSTEM 
STATUS:  POOR.  Leading  Cause:  SABOTAGE"  gets  a  lot  of  information 
across  to  an  overworked  operator.  However,  only  offering  abstract 
comments  is  not  a  complete  solution,  since  operators  will  not  trust 
a  system  that  cannot  offer  a  more  detailed  and  accurate  explanation 
for  such  a  comment  as  the  second  layer  of  SENTINEL  explanation  does. 
And  such  an  explanation  must  be  context  dependent.  Providing 
abstract  comments  in  a  random  fashion  is  probably  worse  than  not 
providing  any  at  all.  Only  by  using  context  dependent  explanations 
can  the  abstract  comments  be  ranked  in  a  fashion  which  supports  the 
hypothesis  in  the  same  manner  that  a  debater  might  try  to  win  an  an 
argument.  It  is  important  to  note  that  SENTINEL  will  present  all  the 
evidence  whether  it  supports  the  hypothesis  or  not;  it  is  only  the 
order  of  presentation  that  is  modified  and  not  the  explanation 
itself.  SENTINEL  is  also  indebted  to  the  concept  of  blackboard  model 


expert  systems  and  the  use  of  object  oriented  programming  for  the 
development  of  an  explanation  capability.  Although  SENTINEL  has  been 
completed,  there  are  ways  in  which  it  could  be  profitably  extended 
as  detailed  below. 

Recommendations 

The  major  area  of  improvement  for  SENTINEL  would  be  in  its 
interaction  with  the  user.  Being  a  decision  aid  this  aspect  of 
SENTINEL  is  the  most  important  for  its  effective  use.  The  method  of 
SENTINEL  interaction  should  be  examined  to  see  in  which  way  it  could 
be  most  effective.  Using  simply  a  mouse  or  touch  screen  to  indicate 
a  reponse  would  be  one  step.  Using  the  keyboard  as  is  done  now  is 
the  logical  initial  approach  but  is  probably  one  of  the  worse  ways 
for  the  MWO  to  interface  with  SENTINEL.  Use  of  more  natural  language 
inputs  would  be  a  good  starting  point,  but  eventually  the  use  of 
voice  commands  or  a  touch  screen  would  be  the  best  solution.  To 
really  test  and  evaluate  the  combination  of  SENTINEL  and  SIMCOPE,  it 
is  first  necessary  to  interconnect  the  PDP-11  to  the  Xerox  1108  and 
permit  SENTINEL  to  receive  the  SIMCOPE  messages  directly.  Rather 
than  having  the  SENTINEL  output  on  a  completely  separate  screen,  it 
would  also  be  ideal  if  the  output  of  SENTINEL  could  appear  directly 
on  a  small  portion  of  the  SIMCOPE  screen  or  perhaps  on  a  closely 
adjacent  monitor.  Once  this  was  accomplished  it  will  be  possible  for 
the  AAMRL  to  evaluate  exactly  how  effective  of  a  decision  aid 
SENTINEL  could  be.  The  stress  levels  and  performance  of  MWO 
operators*with  no  exposure  to  SENTINEL  could  be  compared  to  those 


who  were  taught  to  use  it  at  the  same  time  they  learned  of  SIMCOPE. 
In  this  manner  the  effectiveness  of  such  a  decision  aid  could  be 
established.  SENTINEL  could  also  be  tailored  to  each  operator's 
tastes  as  some  may  always  prefer  a  certain  type  of  explanation  or 
output  format.  In  actual  use  such  a  system  could  know  certain  things 
about  the  operator  such  as  his  experience  level  and  prior 
preferences  and  tailor  its  performance  accordingly.  In  respect  to 
its  rule  sets,  SENTINEL  could  be  further  extended  through  the  use  of 
more  rule  sets  such  as  Speculate.  The  eventual  goal  would  be  to 
assist  the  MWO  further  by  recording  his  pattern  of  inquiry,  and  thus 
actively  help  the  MWO  to  find  the  specific  data  which  he  most  needs 
at  the  time.  SENTINEL  would  certainly  be  an  excellent  starting  point 
for  further  C3  expert  system  decision  aid  development  in  almost  any 
domain. 
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Appendix  A  'Vl 

.  1 

A  Basic  Description  of  Expert  Systems 

Expert  systems  are  specialized  computer  programs  which  are 
receiving  considerable  attention  in  scientific,  industrial,  and 
defense  circles.  Expert  systems  are  part  of  the  field  of  Artificial 
Intelligence  which  has  been  defined  as  "The  study  of  how  to  make 
computers  do  things  at  which,  at  the  moment,  people  are  better" 

(18:1).  Within  this  flexible  definition,  Artificial  Intelligence 
currently  covers  such  subjects  as  converting  natural  language 
automatically  into  computer  language  and  helping  robots  to  see.  To 
date,  the  most  successful  and  widespread  use  of  Artificial 
Intelligence  has  been  through  expert  systems.  Expert  systems,  also 
known  as  knowledge  based  systems,  are  software  programs  which  are 
designed  to  represent  and  apply  specialized  knowledge  in  a  narrow 
field  of  expertise  so  that  users  can  solve  problems  which  previously 
could  only  be  done  by  a  specialist.  According  to  Frederick  Hayes- 
Roth,  expert  systems  differ  from  other  Artificial  Intelligence  tasks 
by  doing  the  following: 

1) .  Perform  difficult  tasks  at  expert  levels  of  performance. 

2) .  Emphasize  domain-specific  problem  solving  strategies. 

3)  .  Employ  self-knowledge  to  reason  about  their  own  inference 

process  and  provide  explanations  or  justifications  for  the 
conclusions  reached. 


4).  Fall  into  several  categories:  interpretation,  prediction, 
’design,  planning,  monitoring  and  instruction  (14:5). 


The  task  of  constructing  expert  systems  usually  begins  by  finding  a 
domain  expert  and  learning  from  him  what  rules  of  thumb  or 
heuristics  he  uses  to  solve  problems.  These  heuristics,  along  with 
specialized  domain  knowledge  are  transformed  into  IF-THEN  rules.  A 
control  structure  which  may  group  rules  into  seperate  categories  in 
a  hierarchical  or  a  nonhierarchical  fashion  is  usually  used.  In  a 
conventional  expert  system,  the  IF-THEN  rules  are  termed  the 
"knowledge  base"  and  the  control  structure  which  determines  how  the 
rules  are  sequenced  is  called  the  "inference  engine."  The  most 
popular  expert  system  architecture  is  the  rule  based  production 
system  which  contains  both  knowledge  sources  and  control  structures. 
Other  approaches  include  the  use  of  "blackboards"  which  post  data  in 
an  area  accessible  to  all  subprograms.  Expert  systems  must  also  deal 
with  many  of  the  fundamental  issues  that  are  raised  below: 

1) .  Knowledge  representation:  There  are  numerous  ways  to 
represent  the  knowledge  in  a  particular  domain.  Such  techniques  as 
frames,  models  and  object  oriented  programming  are  the  most  common. 
Objects  represent  information  by  combining  instructions  and  data 
into  an  entity  which  communicates  with  other  objects  by  sending 
messages.  Frames  can  be  used  to  represent  the  concept  of 
inheritance.  For  example;  If  the  default  value  for  the  COLOR 
variable  of  a  brick  is  RED,  then  one  knows  that  the  color  of  BRICK27 
is  RED  unless  specific  information  attached  to  BRICK27  indicates 
otherwise. 

2) .  Search:  With  complex  knowledge  bases  of  thousands  of  rules, 
matching  ^  specific  rule  in  such  a  large  search  space  becomes  a  very 


time  consuming  task.  Therefore,  limiting  the  search  or  searching  in 
a  more  efficient  manner  insures  computational  feasibility. 

3) .  Dealing  with  Uncertainty:  Most  complex  real  problems  and  the 
work  of  most  domain  experts  entail  dealing  with  uncertainty.  Many 
rules  are  not  absolute  but  have  a  probablity  associated  with  them. 
Most  rule  based  systems  deal  with  uncertainty  by  using  "certainty 
factors"  which  are  a  subjective  assesment  of  how  much  truth  can  be 
associated  with  a  given  fact.  Other  methods  include  Bayesian 
statistical  methods  which  are  more  in  line  with  conventional 
probability  theory,  and  heuristic  methods. 

4) .  Explanation  Capability:  Most  people  will  only  trust  an 
expert  systems  which  can  explain  how  it  arrived  at  a  conclusion. 
Explanation  capabilities  vary  greatly,  and  can  help  verify  the 
knowledge  base  in  the  testing  phase.  One  popular  method  for 
explanation  is  the  recital  of  all  the  rules  that  were  invoked  to 
lead  to  a  conclusion. 

These  issues  can  be  explored  further  by  describing  some  examples 
of  actual  expert  systems  which  have  been  used  in  fields  where  there 
are  shortages  of  human  experts.  Three  diverse  systems  which  have 
been  in  use  for  over  five  years  are  MYCIN,  a  medical  diagnosing  aid; 
XCON  which  configures  computers;  and  PROSPECTOR,  which  looks  for  oil 
and  mineral  desposits. 

MYCIN  (Shortliffe,  1976)  addresses  the  problems  of  diagnosing 
and  treating  infectious  blood  diseases.  Because  laboratory  tests 
that  identify  the  specific  organism  involved  in  these  swift  and 
deadly  diseases  can  take  weeks  to  run,  it  is  essential  to  start 


treatment  as  soon  as  a  reasonable  attempt  at  diagnosis  can  be  made. 
The  attending  physician  enters  a  dialogue  with  MYCIN  by  supplying 
the  symptoms  and  available  test  results  and  MYCIN  then  replies  with 
its  diagnosis  and  a  indication  of  certainty,  and  can  even  answer 
some  questions  on  how  it  arrived  at  its  conclusion.  MYCIN's  skill  at 
diagnosis  is  reported  to  be  at  the  level  of  human  specialists  in 
infectious  diseases  and  sometimes  far  above  the  level  of 
nonspecialist  physicians  (10:65).  The  major  emphasis  in  MYCIN  is  the 
explanation  capability  which  traces  the  system's  inferences  and 
cites  literature  sources  relevant  to  its  conclusion.  MYCIN  also 
reasons  with  uncertainty  by  using  certainty  factors  and  uses  a 
hierarchical  control  structure  to  direct  its  inquiries  (14:53). 

Another  successful  system  is  the  XCON  (McDermott,  1982)  or  R1 
system  used  by  the  Digital  Equipment  Corporation  to  configure 
customer  requests  for  the  VAX  family  of  minicomputers.  By 
automatically  laying  out  equipment  cabinets  and  calling  out  the 
appropriate  type  and  quantity  of  power  supplies,  disk  drives  and 
other  minor  items,  XCON  permits  the  configuration  of  VAX  computers 
by  sales  personnel  within  minutes  instead  of  burdening  technical 
experts  with  tedious  and  time  consuming  work  (14:40).  XCON  started 
its  operational  life  in  1981  with  850  rules  and  by  1984  had  over 
3,250  rules,  demonstrating  the  startingly  large  growth  of  the 
knowledge  base  and  the  capabilities  of  an  expert  system  over  a 
period  of  time.  XCON  is  also  distinguished  by  using  "contexts"  to 
separate  its  large  knowledge  base  into  natural  groupings  of  rules. 

In  this  manner,  the  search  problem  is  constrained  to  only  the 
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average  100  rules  or  so  in  a  context  group  instead  of  searching  over 
all  the  rules  each  time  (2:22). 

PROSPECTOR  (Duda,  1979)  was  developed  for  thr  French  oil 
company  Elf  Acquitance,  and  assists  in  mineral  exploration  by 
analyzing  the  underlying  rock  structure  for  mineral  or  oil  deposits. 
PROSPECTOR  has  already  more  than  paid  for  itself  by  discovering  a 
molybdenum  deposit  whose  ultimate  worth  will  exceed  $100  million 
(14:6).  PROSPECTOR  contains  rule  based  models  for  different  types  of 
ore  deposits  that  were  developed  based  upon  interviews  with  leading 
geologists.  PROSPECTOR  asks  the  user  yes  or  no  and  numerical  input 
questions  that  must  be  acompanied  by  the  user's  confidence  in  the 
answer  on  a  -5  to  +5  scale;  where  -5  is  a  certain  no,  0  indicates  no 
knowledge  about  the  certainty  and  +5  is  a  certain  yes.  In  response, 
PROSPECTOR  can  suggest  which  tests  would  be  most  valuable  to  run 
next,  and  give  the  rationale  for  it,  as  well  as  provide  informal 
education  about  each  class  of  deposits  (9:260). 

The  cornerstone  of  an  expert  system  is  its  knowledge  base, 
which  is  represented  by  the  use  of  IF-THEN  production  rules.  The  top 
statement  in  figure  22  is  a  simple  example  of  an  IF-THEN  rule  from 
the  MYCIN  expert  system,  which  illustrates  what  conditions  are 
necessary  to  support  a  certain  conclusion.  The  second  production 
rule  is  a  more  complex  version  of  an  IF-THEN  statement  from  the  XC0N 
system.  The  numbers  present  in  the  PROSPECTOR  and  MYCIN  rules 
represent  certainty  factors.  Expert  systems  are  able  to  explain 
their  reasoning  process  and  acquire  new  knowledge  and  modify  the  old 
by  changing  their  IF-THEN  rules  appropriately  (18:288). 
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Figure  22.  Three  Examples  of  IF-THEN  Production  Rules  (16:286) 


By  their  very  nature,  expert  systems  are  currently  limited  to 
fields  in  which  the  rules  are  not  contradictory  and  where  the 
problems  they  are  dealing  with  are  well  bounded  and  do  not  depend 
common  sense.  Hayes-Roth  summarizes  the  shortcomings  of  expert 
systems  by  pointing  out: 

1) .  They  are  unable  to  recognize  or  deal  with  problems  for 
which  their  own  knowledge  is  inapplicable  or  insufficient. 

2) .  They  have  no  independent  means  of  checking  whether  their 
conclusions  are  reasonable. 

3) .  Explication  of  their  reasoning  process  is  frequently  silent 
on  fundamental  issues  (14:55). 


Besides  these  fundamental  limitations,  widespread  use  of  expert 


systems  has  been  hampered  by  the  computing  resources  they  require 
and  by  the  amount  of  time  it  takes  to  build  them. 

The  easiest  way  to  program  IF-THEN  statements  and  use  them  in  a 
language  that  resembles  natural  English  is  through  the  use  of  a 
computer  language  called  LISP.  LISP  programs  utilize  a  great  deal  of 
computer  memory  and  are  slowed  by  the  great  number  of  rules  that 
must  be  processed  (14:9).  Very  fast  processing  of  expert  systems 
software  in  LISP  can  be  performed  by  dedicated  computers  available 
for  $30,000  to  $70,000  from  such  vendors  as  Symbolics  and  Xerox 
(22:47).  Though  some  applications  have  been  hampered  by  the  price  of 
these  LISP  machines,  the  major  constraint  is  the  amount  of  time 
necessary  to  produce  an  expert  system. 

Even  with  the  increasing  number  of  expert  systems  in  use, 
building  one  is  still  a  very  time  consuming  task.  In  the  words  of 
Randall  Davis  of  MIT,  "Even  for  the  best  understood  problems, 
experienced  researchers  using  the  best  understood  technologies  still 
require  at  least  five  manyears  to  develop  a  system  that  begins  to  be 
robust"  (7:10).  To  reduce  this  amount  of  effort  and  permit  the  use 
of  less  experienced  programmers,  extensive  software  tools  such  as 
Xerox's  LOOPS  package  have  been  developed.  LOOPS  and  other  expert 
system  building  tools  are  optimized  for  the  rapid  building  of  rule 
bases,  the  use  of  frames  to  permit  inheritance  and  can  use  object 
oriented  programming.  More  specific  information  on  the  use  of  LOOPS 
can  be  found  in  Appendix  C. 

The  greater  use  of  programming  aids  and  the  growing 
capabilities  of  LISP  machines  will  lead  to  the  greater  use  of  expert 
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systems  in  the  military.  One  system  that  has  been  used  is  the  Navy's 
HASP/SIAP  system  which  interprets  ocean  sounds  received  by  a  passive 
sonar  surveillance  system  (10:65).  Rather  than  performing  expensive 
signal  processing  on  all  the  received  data,  the  HASP/SIAP  system 
sifts  through  it  first,  making  allowances  for  local  weather 
conditions  and  intelligence  reports,  and  returning  only  the  data  it 
cannot  explain  for  further  processing.  In  coming  years,  expert 
systems  can  be  expected  to  play  an  increasing  role  in  such 
applications  as  battlefield  control  for  commanders,  the  pilot 
associate  program,  and  interpretation  of  sensor  and  intelligence 
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Appendix  B 

Outline  of  SIMCOPE  Operations 

The  only  fully  documented  record  of  the  Simulated  C3  Operator 
Performance  Evaluation  (SIMCOPE)  is  the  SIMCOPE  instruction  manual 
which  is  listed  as  reference  1.  The  intent  of  this  section  is  an 
attempt  to  give  the  reader  the  flavor  of  what  the  SIMCOPE  Missile 
Warning  Officer  (MWO)  operator  is  actually  asked  to  do,  and  the 
specific  format  of  SIMCOPE  messages,  without  going  into  as  much 
detail  as  the  instruction  manual.  Specific  descriptions  of  the 
scenario  map  used  in  SIMCOPE  as  well  as  the  usual  sequence  of  events 
are  discussed  at  the  beginning  of  Chapter  II  and  are  not  repeated 
here.  Instead,  the  general  objectives  of  SIMCOPE  are  discussed 
first,  followed  by  the  SIMCOPE  MWO  operator's  task  and  a  detailed 
description  of  how  each  type  of  SIMCOPE  message  can  be  interpreted 
by  using  tables. 

There  are  five  types  of  messages  used  in  SIMCOPE;  the  INT 
intelligence  report,  the  SYS  system  status  report,  the  ADS-1  and 
ADS-2  first  and  second  pass  satellite  reports  and  finally  the  BSS 
radar  site  report.  The  basic  objective  of  SIMCOPE  is  to  function  as 
a  test  bed  for  the  C3  operator  task  of  the  strategic  Missile  Warning 
Officer  (MWO).  Specifically,  SIMCOPE  is  to  model  the  task  of  the  MWO 
and  evaluate  different  ways  of  presenting  information  and  asks  the 
MWO  to  assess  the  degree  of  mental  effort  required. 
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SIMCOPE  Objectives 

SIMCOPE  is  a  computer  simulation  written  in  FORTRAN  and  running 
on  a  PDP-11  at  the  Aerospace  Medical  Research  Laboratory  at  Wright- 
Patterson  Air  Force  Base,  Ohio.  SIMCOPE  is  similar  to  a  war  game  and 
is  being  used  to  study  human  information  processing  and 
decisionmaking  in  a  realistic  setting.  SIMCOPE  uses  a  fictional 
scenario  and  a  model  of  the  world  that  uses  20  countries.  The  task 
of  the  MWO  is  to  watch  and  evaluate  events  and  determine  which  if 
any  launch  events  represent  a  possible  threat.  The  objectives  of 
SIMCOPE  are  to  observe  the  accuracy  and  speed  with  which  the  MWO 
handles  large  amounts  of  information  and  completes  and  sends  event 
reports  (1:1). 

The  Subjective  Workload  Assessment  Technique  is  used  as  a  way 
of  capturing  the  indicated  workload  level  of  the  MWO.  Upon 
completion  of  message  processing,  the  MWO  is  asked  for  his 
subjective  evaluation  of  whether  he  was  pressed  for  time  as  well  as 
the  mental  effort  and  psychological  stress  generated  by  that 
particular  sequence  and  speed  of  messages.  This  measurement 
technique  provides  a  way  of  representing  the  quality  of  the 
decisions  made  by  the  MWO,  and  the  speed  with  which  such  reports  can 
be  handled  (1:51).  SIMCOPE  was  developed  by  several  members  of  the 
Human  Engineering  Division  of  the  Aerospace  Medical  Research 


Laboratory  in  1983. 
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Figure  25.  Representation  of  the  SIMCOPE  Touchscreen 
and  Major  Display  Areas  (1:8). 
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sideways  scroll  keys  permit  event  keys  to  be  scrolled;  pressing  the 
left  button  for  example,  would  bring  events  labeled  "E9,""E10"  and 
so  on  to  be  displayed  on  the  screen.  Not  all  of  the  keys  are  shown 
in  figure  23,  figure  24  shows  what  appears  on  the  SIMCOPE  touch 
screen  when  the  "DETAIL  MAP"  display  code  is  pressed.  Note  that  the 
display  area  is  now  dominated  by  the  map  of  US  and  THEM.  Note  also 
to  the  right  of  the  map  that  several  more  buttons  have  appeared  in 
the  "MODE  CONTROL"  regions.  These  permit  the  MWO  to  surpress  some  of 
the  features  displayed  on  the  map  such  as  the  military  installations 
or  the  ADS  satellite  or  BSS  radar  zone  of  coverage.  One  can 
appreciate  that  the  SIMCOPE  screen  becomes  very  cluttered  when 
various  missile  launches  and  trajectories  are  displayed  on  the  map 
as  well.  Having  discussed  the  workstation  the  MWO  uses,  it  is  now 
appropriate  to  see  the  format  for  each  type  of  message. 

INT  and  SYS  messages 

The  INT  and  SYS  SIMCOPE  messages  are  the  simplest  type  to 
process  for  the  MWO  since  no  response  is  required.  These  messages 
arrive  in  the  message  display  area  announced  only  by  a  flashing 
"ACKNOWL"  key.  The  MWO  merely  presses  the  "ACKNOWL"  button  to  stop 
the  flashing  and  the  INT  or  SYS  message  leaves  the  display  area.  It 
is  important  to  note  that  the  INT  and  SYS  reports  are  stored  in  a 
chronological  listing  that  can  be  summoned  at  any  time  by  pressing 
the  "INTEL  REPORTS"  or  "SYS  REPORTS"  keys  located  in  the  bottom  of 


the  screen.  As  more  messages  arrive,  the  screen  scrolls  and  the 
older  messages  are  deleted  from  this  listing  (1:108).  Although  the 
messages  stored  in  the  listing  are  in  "translated"  form  such  as  "The 
BSS  site  # 6  sensor  is  now  at  PARTIAL  capability  due  to  SABOTAGE," 
the  incoming  SIMC0PE  messages  are  a  collection  of  alphanumeric 
characters  separated  by  slashes,  such  as: 

//CWC/INT//13/-7/5/143100/000000/+13/XXXXXX/ / . 

Table  1  on  page  146  demonstrates  how  this  combination  of  a  "raw" 
SIMC0PE  INT  message  can  be  broken  down  into  the  appropriate  data 
fields  which  represent  different  factors.  The  reader  may  recall  that 
in  SENTINEL  the  message  format  was  altered  to  have  parantheses 
instead  of  slashes  for  the  ease  of  LISP  manipulation.  The  SIMC0PE 
message  shown  at  the  top  of  table  1  is  distinguished  by  having  INT 
as  the  second  element  of  the  message.  Recall  that  INT  messages 
inform  the  MWO  of  news  reports  of  the  rest  of  the  world  that  could 
affect  the  judgement  of  the  MWO.  The  only  field  of  the  INT  report 
which  was  not  used  by  SENTINEL  is  field  number  5  which  represents 
the  casualty  levels  incurred  as  a  result  of  some  reported  action. 
This  portion  was  not  used  since  the  Intelligence  Model  developed  for 
this  project  would  not  use  casualty  levels  incurred  by  other 
countries. 

SYS  messages  are  intended  to  notify  the  MWO  of  equipment 
operating  conditions.  SYS  messages  classified  as  "Routine"  result  in 
the  same  procedure  as  the  INT  messages.  Mainly,  the  operator  only 


has  to  select  the  flashing  "ACKNOWL"  key  to  acknowledge  the  report. 
No  other  action  is  expected.  An  "emergency"  SYS  report  will  also 
cause  an  alarm  to  sound  when  received.  The  MOW  is  expected  to 
examine  the  messages,  note  carefully  what  it  means  and  when  the 
"ACKNOWL"  messages  is  pushed,  the  SYS  messages  leaves  the  message 
display  area  for  storage  in  the  SYS  chronological  listing  (1:14). 
Details  for  decoding  the  SYS  messages  can  be  found  in  table  2,  which 
shows  the  data  fields  which  constitute  the  SYS  report.  All  of  these 
data  fields  are  used  in  SENTINEL  to  update  the  sensor  actor  or  are 
posted  on  the  SYSBoard  blackboard.  Having  discussed  the  INT  and  SYS 
messages,  it  is  now  appropriate  to  discuss  the  message  processing 
that  is  tied  to  a  launch  event  report. 

ADS-1  Messafie  Processing 

When  the  MWO  receives  an  ADS-1  report,  the  "ACKNOWL"  key 
flashes  continously  and  an  alarm  sounds.  The  MWO  should  then  press 
the  "ACKNOWL"  key,  after  which  the  "ASSIGN"  key  begins  flashing  and 
the  prompt  "SELECT  EVENT  NUMBER"  appears  in  the  lower  right  corner 
of  the  display.  Once  the  MWO  selects  an  event  number  key  to  assign 
this  ADS-1  report,  the  message  disappears  from  the  screen  to  be 
stored  in  a  event  timeline  display  which  is  accessed  by  pressing  the 
"EVENT  TIMELINE"  key  in  the  display  key  area.  At  this  point,  the  MWO 
must  fill  out  an  ADS-1  report  form  which  is  shown  in  figure  25.  Note 
that  the  key  captioned  "OUTPUT  FORMAT"  has  been  pressed  in  figure 
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25,  and  the  location  of  the  other  display  functions  such  as  "EVENT 
TIMELINE"  as  well.  As  shown  on  the  screen  of  figure  25,  a  form 
entitled  "ADS  PASS  1  EVENT  -1"  announces  the  type  of  message  and 
which  event  it  has  been  linked  to.  The  MWO  must  fill  out  the  6  items 
listed  on  the  left.  When  SIMCOPE  is  an  AUTO  mode  the  first  two 
items;  DETECTED  and  ADS  are  filled  out  automatically.  For  the 
remainder  of  the  items  the  MWO  selects  an  item  from  a  menu  on  the 
touch  screen.  As  shown  in  figure  25,  the  current  item  the  MWO  is 
assigning  is  the  LAUNCHER  TYPE  and  he  can  select  a  response  from  the 
four  item  menu  listed  on  the  right  hand  side  of  the  screen.  Once  he 
selects  an  item,  SIMCOPE  fills  it  in  on  the  screen  and  proceeds  to 
the  next  item.  The  completed  form  of  an  ADS-1  report  can  be  seen  in 
figure  26. 

When  all  six  items  of  the  ADS  1  report  have  been  filled,  the  MWO 
must  now  send  the  message  to  his  higher  headquarters,  the  Command 
Defense  Center.  The  Release  Authority  number  is  used  to  simulate  an 
authentication  procedure  to  permit  the  CDC  to  verify  that  the  MWO 
indeed  originated  this  message.  All  the  other  items  of  this  message 
are  straight  forward  with  the  exception  of  the  MWO  CONFIDENCE  which 
is  item  6.  The  MWO  CONFIDENCE  is  a  subjective  assessment  of  whether 
an  event  is  to  be  considered  hostile  or  not,  and  is  assigned  on  a 
scale  of  0  to  9  where  0  indicates  a  very  high  confidence  that  the 
event  is  not  hostile  (1:19).  In  a  similar  fashion  to  INT  and  SYS 
messages,  the  ADS-1  report  can  also  be  decomposed  into  several  data 
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Figure  26.  ADS-1  Display  after  Entering  Release 
Authorization  Number  (1:27). 
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fields  as  shown  in  table  3.  All  of  the  items  shown  in  table  3  such 
as  infrared  intensity  strength,  reported  launch  latitude  and 
longitude  and  the  sensor  site  confidence  indicating  whether  this 
data  is  valid  are  all  used  by  SENTINEL.  The  only  remaining  messages 
are  the  ADS-2  and  BSS  site  messages  which  are  processed  in  a  fashion 
very  similar  to  the  ADS-1  report. 

ADS-2  and  BSS  Message  Processing 

ADS-2  messages  announce  themselves  and  are  assigned  to  an  event 
in  an  identical  fashion  to  the  way  ADS-1  messages  where  described 
above.  Because  more  information  is  available  on  the  second  satellite 
pass  the  response  form  to  an  ADS-2  event  is  quite  different  from  the 
ADS-1  case  and  a  completed  form  is  shown  in  figure  27.  When  SIMCOPE 
is  running  in  the  AUTO  mode,  the  first  two  items  the  DETECTED  time 
and  the  ADS  satellite  are  filled  out  automatically.  The  EVENT  TYPE 
item  asks  the  MWO  to  decide  whether  the  event  under  consideration 
represents  a  HOSTILE,  TEST,  UNRESOLVABLE  or  UNKNOWN  event.  As 
described  by  the  SIMCOPE  instruction  manual,  HOSTILE  events  are 
those  in  which  the  reported  trajectory  of  the  missile  falls  within 
the  country  of  US,  while  TEST  events  are  those  missile  trajectories 
that  lie  wholly  outside  the  US.  Those  events  which  result  in  a 
missile  fan  which  is  partially  in  US  are  held  to  be  UNRESOLVED, 
while  those  for  which  the  data  is  inconsistent  are  held  to  be 


UNKNOWN  (1:76).  The  fourth  item,  BSS  DETECT  is  the  number  of  the  BSS 


site  which  is  most  likely  to  detect  this  missile,  while  the  THREAT 
requires  a  simple  YES  or  NO  response.  The  MWO  CONFIDENCE  and  RELEASE 
AUTHORITY  NUMBER  are  filled  out  just  like  they  were  for  ADS-I.  The 
ADS-2  messages  are  interpreted  using  the  data  fields  described  in 
table  4. 

BSS  messages  are  also  announced  by  a  flashing  "ACKNOWL"  key  and 
an  alarm.  Upon  matching  them  to  an  event  number,  the  MWO  is  also 
required  to  fill  out  a  BSS  report.  The  completed  BSS  report  is  shown 
in  figure  28,  where  the  first  four  items;  DETECTED  time,  BSS  site 
number,  THREAT  yes  or  no  and  OBJECTS  TRACKED  are  automatically 
filled  in.  The  MWO  must  select  the  response  for  POSSIBLE  TARGETS 
using  a  menu  that  displays  all  the  targets  labeled  by  two  or  three 
letter  designations.  General  military  and  industrial  targets  in  the 
country  of  US  are  not  identified  in  this  fashion  although  cities, 
and  C3  nodes  are.  EST  IMPACT  TIME  is  also  filled  in  automatically 
once  the  MWO  selects  a  possible  target.  Finally  MWO  CONFIDENCE  and 
RELEASE  AUTHORITY  NUMBER  are  filled  in  the  same  manner  ADS-1  and 
ADS-2  messages  did,  and  the  message  is  sent  to  the  CDC.  The  data 
fields  that  constitute  the  BSS  event  message  are  shown  in  table  5. 
The  most  important  characteristics  of  the  BSS  report  are  the  number 
of  objects  being  tracked,  the  expected  time  of  impact  and  the 
trajectory  stability  which  indicates  whether  a  stable  ballistic 
trajectory  has  been  followed  by  this  particular  missile. 
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Figure  28.  BSS  Display  after  Entering 

Release  Authority  Number ( 1 : 48 ) . 
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Conclusion 


The  SIMCOPE  instruction  manual  is  quite  detailed  and  describes 
the  situations  that  fall  into  each  category  using  a  type  of  check 
list.  How  SENTINEL  determines  these  categories  is  well  discussed  in 
the  main  text  and  will  nef^  be  repeated  here.  Instead,  the  task  of 
the  MWO  and  the  types  of  messages  he  must  deal  with  have  been 
discussed  to  give  the  reader  an  appreciation  for  the  task  for  which 
SENTINEL  is  intended  as  a  Decision  Aid.  SIMCOPE  is  just  a 
simulation,  but  one  that  can  yield  valuble  insights  into  the  task 
and  operation  of  the  C3  operator  that  functions  as  an  MWO. 

Finally,  table  6  is  a  listing  of  all  the  targets  and  launch 
sites  used  by  SENTINEL.  The  PROPERTY  TAG  represents  the  actual  name 
for  the  property  list  under  which  the  rest  of  this  information  is 
stored  and  accessed.  Where  SIMCOPE  provided  a  name,  the  author  used 
the  SIMCOPE  name.  Latitude  and  longitude  was  determined  by  using  the 
detail  map  display  shown  in  the  SIMCOPE  instruction  manual  and  are 
accurate  to  within  half  a  degree  (1:3).  The  designations  fell  in  the 
foilwing  categories  for  targets;  a  city  was  a  non-C3  node  which  had 
an  alphabetic  SIMCOPE  designation,  a  C3  site  was  one  of  the  C3  nodes 
that  comprise  the  missile  warning  network,  MILITARY  or  INDUSTRIAL 
targets  are  labeled  M  or  I  in  the  SIMCOPE  map  and  were  named  by  the 
author.  For  launch  sites  the  types  are  as  follows:  GREEN  is  a 
suspected  site,  RED  is  a  known  site,  RED1  is  a  known  site  that  has 
TYPE1  missiles  and  RED2  is  a  known  site  that  has  TYPE2  missiles. 


TABLE  1  (1:63) 


THE  1ST  MESSAGE  STRING 

EXAMPLE:  //CWC/IXT//1 3/-7 /5/ 1 431 00/000000/+1 3/XXXXXX// 


DATA  FIELD 

(In  order,  left  to  right) 


Who  was  responsible 
for  the  action? 
Country  Name 
Identified  by 
Number 


CODES  USED 
AND 

THEIR  MEANING 

D  -  UNIDENTIFIED 
OR  UNKNOWN 

1  -  ANYBODY 

2  -  ANYONE 

3  -  ANYPLACE 
i  -  BACKLAND 

3  -  BOTTOMLAND 
3  -  EASTLAND 
7  -  INLAND 
3  -  NOBODY 
9  -  NOPLACE 
3  -  NORTHLAND 

1  -  OUTBACK 

2  -  OVERTHERE 
i  -  SOMEBODY 

'*  -  SOMEONE 

3  -  SOMEPLACE 
i  -  SOUTHLAND 
7  -  THEM 

3  -  TOPLAND 
3  -  US 

)  -  WESTLAND 


INTERPRETATION 
OF  THIS 

MESSAGE  PROPERLY  DECODED 

The  country  of  Somebody 
did . . . 


2.  Did  (or  Will  Do/ 

Is  Expected  to  Do) 
What? 


3.  To  (or  with)  Whom? 


+  -  Has 
-  -  Has  Not 

1  -  Threatened 

Invasion 

2  -  Threatened  Attack 

3  -  Invaded 

4  -  Attacked 

5  -  Defeated 

6  -  Surrendered 

7  -  Allied 

8  -  Test  Launch 

0-20  (as  in  1  above) 
Exception: 

If  (1)  was  19  and 

(2)  was  ^7 ,  then 

(3)  cannot  be  17 


Has  not  created  an 
alliance  with... 

(or  dissolved  one  if 
it  had  previously 
existed) 


The  country  of 
Bottomland,  (complete 
message:  The  country 
of  Bottomland  is  no 
longer  and  ally  of 
Somebody. 
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TABLE  1  (Cont'd) 


THE  I  NT  MESSAGE  STRING 

EXAMPLE:  //CWC/IXT//1 3/-7/5/143100/000000/+13/XXXXXX// 


DATA  FIELD 

n  order,  left  to  right) 

4.  When?  (expected  time 
when  action  identified 
by  field  2  will  occur) 


5.  With  WTiat  Result? 

If  action  (field  2) 
was  3  or  4,  then  what 
damage  was  inflicted? 

Level  Codes: 

0  -  None 

1  -  Low 

2  -  Moderate 

3  -  Heavy 

4  -  Severe 


CODES  USED 
AND 

THEIR  MEANING 


First  Digit:  Military 
Target  Destruction 
Level 

Second  Digit:  Indus¬ 
trial  Target  Destruc¬ 
tion  Level 

Third  Digit:  Civilian 
Target  Destruction 
Level 

Fourth  Digit:  Military 
Casualty  Level 

Fifth  Digit:  Indus¬ 
trial  Casualty  Level 


INTERPRETATION 
OF  THIS 

MESSAGE  PROPERLY  DECODED 


The  dissolution  of  the 
alliance  had  no  target 
destruction  or  casualty 
implications 


Time  or  date.  Time  in  The  alliance  was  dis- 
hours,  minutes,  and  se-  solved  at  1431  ZULU 
conds  (hhmnss):  000001  today, 
to  240000.  A  date  as: 

+01-01  to  12-31 
XX-YY  or  UU-UU 
Time  values  specify  same 
day;  otherwise  date  is 
implied;  a  positive  nu¬ 
meric  value  is  day  and 
month  of  this  year; 
minus  sign  means  last 
year;  XX-YY,  or  UU-UU 
means  either  the  date  is 
more  than  a  year  away  or 
is  unknown. 


Sixth  Digit:  Civilian 
Casualty  Level 


TABLE  1  (Cont'd) 


THE  1ST  MESSAGE  STRING 
EXAMPLE:  //CWC/IXT// 1 3/-7/5/1 431 00/000000/+13/XXXXXX// 


CODES  USED  INTERPRETATION 

DATA  FIELD  AND  OF  THIS 

(In  order,  left  to  right)  THEIR  MEANING  MESSAGE  PROPERLY  DECODED 


6.  Reported  By 

+  Open  Source 

The  Country  of  Somebody 

Intelligence 

openly  announced  the 

Source 

dissolution  of  their 

0-20  (as  in  1  above) 

Exceptions : 

a)  if  open  source, 

19  is  not  appli¬ 
cable  . 

b)  if  intelligence 
source,  17  is 
not  applicable. 

alliance  with  the 
Country  of  Bottomland 

7.  Correlated  Message 

Same  coding  as  field  4 

There  was  no  prior 

except  time  should  pre¬ 

message  correlated 

cede  (be  earlier  than) 

with  this  one  (indi¬ 

present  message  time. 

cated  by  the  string  of 
six  X ' s ) . 

TABLE  2  (1:66) 


THE  SYS  MESSAGE  STRING  FOR  SYSTEM  STATUS  REPORTS 
EXAMPLE:  //CWC/SYS//R/2/S/T/1 30523/1 50000/F// 


DATA  FIELD 

(In  order,  left  to  right) 

J .  Type  of  System  Status 

Me ss ape 

2.  Svsiem  Affected 


3.  Affected  Subsystem 


4.  Reason  for  Outage 

5.  Time  of  Subsystem 
Outage 


CODES  USED 
AND 

THEIR  MEANING 

R  -  Routine 
E  -  Emergency 

A:  ADSGSF 

B:  BSSGSF 

C:  CDC 
F:  BURF 
N:  .ADS  North 
S:  .ADS  South 
1-7:  BSS  Site  No. 

C:  Communication 
D:  Data  Channel 
H:  Data  Link 

(high  speed) 

L:  Data  Link 

(low  speed) 

P:  Processor 

S:  Sensor 

T:  Telephone  (voice) 

T:  Test 

M:  Maintenance 
F:  Failure 

S:  Sabotage 

U:  Unknown 

000001  to  240000 
(will  be  XXXXXX 
if  site  originating 
the  message  does  not 
know  this  value). 


INTERPRETATION 
OF  THIS 

MESSAGE  PROPERLY  DECODED 

System  outage  was 
planned . 

BSS  Site  2  is  the 
affected  site. 


The  sensor  itself  will 
be  (or  was)  inoperative 


The  sensor  outage  was 
scheduled  to  permit 
some  kind  of  test. 


The  sensor  was  shut 
down  at  1300  hours  05 
minutes,  23  seconds 
ZULU. 
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TABLE  2  (Cont'd) 


THE  SYS  MESSAGE  STRING  FOR  SYSTEM  STATUS  REPORTS 
EXAMPLE:  //CWC/SYS//R/2/S/T/130523/150000/F// 


DATA  FIELD 

In  order,  left  to  right) 

CODES  USED 

AND 

THEIR  MEANING 

INTERPRETATION 

OF  THIS 

MESSAGE  PROPERLY  DECODED 

6.  Estimated  Time  of 

000001  to  240000 

If  it's  past  1500  hours 

Return  to  Service 

(will  be  XXXXXX  if 

ZULU,  the  site  should 

the  site  originating 

be  back  "up"  and 

this  message  does  not 
know) 

operating  again. 

This  message  indicates 

7,  Current  Capability 

F:  Full 

the  site  was  restored 

P:  Partial 

to  operation  at  1500 

Z:  Zero 

( none  ) 

hours  ZULU. 

TABLE  3  (1:69) 


THE  ADS  EVENT  MESSAGE  STRING  FOR  PASS  1 
EXAMPLE:  ADS  Pass  1  Message  Set:  //CWC/ADS//S1 /1427 18/8/-29/+1 3/14291 5/8/ / 


DATA  FIELD 

(In  order,  left  to  right) 

1.  Detection  Source 
and  Pass  Number 

2.  Tine  of  Detection 


3.  Detection  Strength 
of  Sensor  Intensity 


4.  Launch  Latitude 


5.  Launch  Longitude 


6.  Expected  Time  of 
Arrival  (ETA)  for 
the  ADS-2  Message 


7.  Sensor  Site 
Confidence 


r  -  hours:  00  to  24 
m  -  minutes:  00  to  59 
s  -  seconds:  00  to  59 


INTERPRETATION 
OF  THIS 

MESSAGE  PROPERLY  DECODED 

South  ADS  Pass  1 
Message 

Sensor  detection  occur¬ 
red  at  1400  hours,  27 
minutes  and  18  seconds 
ZULU. 

Sensor  intensity  is  8, 
relatively  high,  higher 
than  for  a  Type  2 
launcher. 


29°  South,  about  the 
middle  of  Them. 

13°  West,  about  the 
middle  of  the  CENTRAL 
region. 

Expected  time  of  arriv¬ 
al  for  the  Pass  2  mes¬ 
sage,  expressed  in  ZULU 
hours,  minutes  and 
seconds:  1400  hours,  29 
minutes,  15  seconds 
ZULU. 


0  to  9  Confidence  here  is  8,  a 

The  sensor  site's  con-  relatively  high  value. 

fidence  that  these  data 

are  valid  indications: 

zero  is  low  and  9  is 

high. 


CODES  USED 
AND 

THEIR  MEANING 

N  or  S 
1 

hrmmss* 

000001  to  240000 


0  to  9 

Intensity  level  of  the 
signal  as  detected  by 
this  sensor;  zero  is 
low  and  9  is  high. 

-15  to  -45 
(15 os  to  45°S) 

+10  to  +24 
(10°W  to  22°W) 


hrmmss 

000001  to  240000 


TABLE  4  (1:71) 


THE  ADS  EVENT  MESSAGE  STRING  FOR  PASS  2 
EXAMPLE:  ADS  Pass  2  Message  Set:  //CWC/ADS //N2 /I 429 1 3/U/240/67/143318/9// 


DATA  FIELD 

(In  order,  left  to  right) 


CODES  USED 
AND 

THEIR  MEANING 


INTERPRETATION 
OF  THIS 

MESSAGE  PROPERLY  DECODED 


1.  Detection  Source 
and  Pass  Number 


N  or  S 
2 


North  ADS  Pass  2  Message 


2.  Ti  me  of  Detection 


hrmmss  North  ADS  sensor  detection 

000001  to  240000  occurred  at  1400  hours,  29 

minutes  and  13  seconds. 
ZULU. 


3.  Launcher  Type 


4.  Heading 


1  -  Launcher  Type  1  Launcher  type  is  unknown. 

2  -  Launcher  Type  2 
I  -  Indistinct 

V  -  Unknown 
Indistinct  means  the 
sensor  intensity  match¬ 
es  either  Type  1  or 
Type  2  launchers.  Un¬ 
known  means  the  sensor 
intensity  was  too  low 
or  too  high  for  Type 
or  Type  2  launchers. 

000-359 

0°  (North)  to  359° 

East  is  90°; 

South  is  180°; 

West  is  270°; 

XXX  means  no  di¬ 
rectional  movement 
is  discernable  yet. 


240°  means  the  object 
is  heading  toward  Us. 


5.  BSS  Sites  that  Should 
or  Could  Detect  Objec 


0  to  7  (two  or  more 
digits  imply  several 
sites).  Zero  is 
used  if  there  is  no 
movement  or  movement 
is  away  from  Us. 


Sites  6  and/or  7  should 
detect  the  object. 


TABLE  4  (Cont'd) 


THE  ADS  EVENT  MESSAGE  STRING  FOR  PASS  2 
EXAMPLE:  ADS  Pass  2  Message  Set:  / / CWC / ADS / /N2 / 1 4 29 1 3/U/2AO/67/143318/9// 


CODES  USED 

INTERPRETATION’ 

DATA  FIELD 

AND 

OF  THIS 

In 

order,  left  to  right) 

THEIR  MEANING 

MESSAGE  PROPERLY  DECODED 

6. 

Expected  Time  the 

hrmmss 

Object  should  be  de¬ 

BSS  Message  Should 

000001  to  240000 

tected  at  the  indicated 

Be  Gone  rated. 

or  XXXXXX 

time:  1400  hours,  33 

If  field  is  zero, 

minutes  and  18  seconds, 

this  should  be 

XXXXXX. 

ZULU. 

7. 

Senior  Confidence 

0  to  9 

Confidence  is  9,  very 

The  sensor  site's 
confidence  that  the 
data  are  valid. 

high. 

TABLE  5  (1:74) 


THE  BSS  EVENT  MESSAGE  STRING  FOR  PASS  2 
EXAMPLE:  BSS  Message  Set:  //CWC / B SS / / 7 / 1 4 33 1 7 / 1 /2 33 /Y / 1 4 3 5 38 /9 / / 


DATA  FIELD 

(In  order,  left  to  right) 

1.  Detection  Source 
(BSS  Site  Number) 


2.  Detection  Time 


3.  Number  of  Objects 


4.  Heading 


5.  Trajectory 
Stability 


CODES  USED  AND 
THEIR  MEANING 

1  to  7 


hrmmss 
000001  to 
240000 

0  to  5 


000  to  359 
0°  (North)  to  359° 
East  is  9(i° 

South  is  ISO0 
West  is  2/0° 

N  -  NO,  maneuvering 
Y  -  YES,  stable 


INTERPRETATION  OF  THIS 
MESSAGE  PROPERLY  DECODED 

Barrier  Surveillance 
Site  Number  7  detected 
an  object. 

The  BSS-7  detection  occur¬ 
red  at  1400  hours,  33  min¬ 
utes  and  17  seconds  ZULU. 

Only  one  object  was  de¬ 
tected  by  BSS-7. 

Object  has  a  heading  of 
233°,  roughly  Southwest 
but  toward  Us. 


A  stable  ballistic  trajec¬ 
tory  has  been  followed. 


6.  Expected  Time  hrmmss  Object  impact  is  antici- 

of  Impact  000001  to  pated  at  1400  hours,  35 

240000  minutes,  and  38  seconds 

ZULU. 


7.  Sensor  Confidence  0  to  9  Site  confidence  is  9,  very 

The  BSS-7  site  high, 

confidence  that 
he  detection  data 
are  valid  indica¬ 
tions;  zero  is 
low  and  9  is  high. 
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Table  6 

■-••V 

Listing  of  All  the  SENTINEL 

Actors 

i  . 

PROPERTY  TAG 

NAME 

LATITUDE 

LONGITUDE 

TYPE 

(in  degrees) 

(in  degrees) 

*>>'■ 

High  Value  Target  List 

TGT1 

LIVINGSTON 

39 

32 

CAPITAL 

TGT2 

BRF 

35 

28 

C3 

TGT3 

CDC 

39 

35.5 

C3 

t* 

TGT4 

CWC 

31 

30 

C3 

TGT5 

ADSGSF 

33 

35 

C3 

_  J 

TGT6 

BSSGSF 

25.5 

29 

C3 

Target  Area 

± 

TGT7 

KEYNORTH 

23.5 

37.5 

CITY 

'  J 

TGT8 

RIVERTON 

20.5 

34.5 

CITY 

4 

TGT9 

NORTHCITY 

20.5 

30.5 

CITY 

K-.-r 

TGT10 

CLEAR 

21 

37.5 

MILITARY 

TGT11 

MINOT 

18 

33.5 

MILITARY 

TGT12 

CARLSBAD 

22.5 

38.5 

INDUSTRIAL 

TGT13 

ARTOIS 

21.5 

30 

INDUSTRIAL 

TGT14 

MANCHESTER 

23 

31 

INDUSTRIAL 

■ 

Target  Area 

2 

V.’/ 

TGT15 

TOLLCITY 

25.5 

33 

CITY 

»* 

TGT16 

PINEGROVE 

26 

31 

CITY 

TGT17 

OCEANCITY 

28 

39 

CITY 

Q 

TGT18 

WARREN 

26.5 

36 

MILITARY 

TGT19 

SEYMOUR 

28 

29 

MILITARY 

TGT20 

MARATHON 

26 

36 

INDUSTRIAL 

TGT21 

SAAR 

27.5 

35 

INDUSTRIAL 

’/•V 

TGT22 

FRANCONIA 

28.5 

34 

INDUSTRIAL 

v-v 

Target  Area 

3 

y 

TGT23 

HAYES 

31.5 

35.5 

CITY 

TGT24 

WHITESANDS 

32.5 

37.5 

CITY 

TGT25 

DELTA 

29.5 

30 

CITY 

TGT26 

GEORGE 

30.5 

29 

MILITARY 

TGT27 

LIDO 

29.5 

32.5 

INDUSTRIAL 

•  -.'I 

* .  ♦  j 


■v'i 
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Table  6  (Cont'd) 


Listing  of  All  the  SENTINEL  Actors 


PROPERTY  TAG  NAME 


LATITUDE 


LIVONIA 

LATVIA 

LOYANG 


MARENGO 


MUKDEN 


LONGITUDE 


Target  Area  4 

TGT28 

SOUTHRICH 

36 

34 

CITY 

TGT29 

NORDEN 

35.5 

32 

INDUSTRIAL 

TGT30 

EMDEN 

36 

33.5 

INDUSTRIAL 

TGT31 

DAUN 

37 

32.5 

INDUSTRIAL 

TGT32 

MUHL 

39.5 

34 

INDUSTRIAL 

TGT33 

LOHR 

40.5 

35.5 

INDUSTRIAL 

BSS  Sites 

TGT01 

BSS#1 

20 

24.5 

TGT02 

BSS#2 

22 

24.5 

TGT03 

BSS#3 

25 

22.5 

TGT04 

BSS#4 

27.5 

25.5 

TGT05 

BSS#5 

30 

25 

TGT06 

BSS#6 

32.5 

25 

TGT07 

BSS#7 

36 

23.5 

Launch  Sites 

LSI 

KRASNOYARSK 

21.5 

20.5 

GREEN 

LS2 

KAPUSTIN 

23 

21 

GREEN 

Appendix  C 


Evaluation  and  Use  of  LOOPS 


This  discussion  is  based  on  material  drawn  from  the  LOOPS 
manual,  reference  3.  The  examples  used  were  developed  by  the  author. 
LOOPS  is  an  expert  system  building  tool  developed  by  the  Xerox 
Corporation  to  help  build  knowledge  based  systems.  LOOPS  provides 
four  different  paradigms  of  programming,  based  on  the  premise  that 
different  paradigms  are  appropriate  for  different  applications: 

1) .  Procedure-oriented  programming:  This  feature  permits 
large  procedures  to  use  subroutines,  by  using  the  InterLISP-D 
facility  on  which  LOOPS  is  built. 

2) .  Object-oriented  programming:  Large  objects  are  built  up 
from  small  ones  which  combine  instructions  and  data  and  send 
messages  to  each  other.  Inheritance  is  also  permitted  for  objects  by 
use  of  a  class  lattice. 

3) .  Access-oriented  programming:  Uses  a  structure  called  an 
"active  value"  which  can  trigger  additional  computations  when  data 
is  changed  or  read.  They  can  be  thought  of  as  "probes"  which  can  be 
placed  on  an  object. 

A).  Rule-oriented  programming:  LOOPS  organizes  rules  into 
rule  sets  which  specify  the  rules  and  a  control  structure,  which 
offers  an  "audit  trail"  facility  which  can  trace  all  the  invoked 
rules  during  processing  (3:4). 

During  the  course  of  this  project,  the  author  used  mainly  the 
rule  oriented  programming  paradigm  along  with  limited  use  of  the 


object  oriented  proramming  paradigm.  Due  to  the  manner  in  which  the 
SIMCOPE  simulation  was  modeled,  the  SCENARIO  REPRESENTATION  was 
incompatible  with  the  largely  object  oriented  representation  of 
LOOPS.  In  order  to  use  the  LOOPS  rule  base  facilities  it  is 
necessary  to  first  define  objects  and  classes. 

MetaClasses,  Classes  and  Objects 


The  natural  starting  point  for  a  beginner  in  using  LOOPS  is 
learning  to  define  classes.  It  is  difficult  to  use  LOOPS  without 
defining  objects,  but  one  cannot  create  an  object  which  in  the  LOOPS 
terminology  can  be  defined  as  "the  specific  instance  of  a  class" 
without  defining  a  class.  One  starts  off  by  using  a  command  to 
define  a  class.  The  AFITStudent  class  is  defined  by: 

(DC  'AFITStudent) 

Having  defined  the  class,  it  can  now  be  edited  to  permit  "instance 
variables"  to  be  attached  to  the  class.  Values  can  be  attached  to  a 
class  only  if  an  instance  variable  has  been  defined  for  that  class. 
The  command  to  edit  classes  is:  (EC  'AFITStudent) 

After  using  the  editor  facility  which  uses  the  "mouse"  as  a  pointer, 
the  class  AFITStudent  is  edited  to  provide  instance  variables  for 
the  values  of  graduation  date,  totalhours  and  address.  Now,  the 
output  looks  as  follows: 

[DEFCLASS  AFITStudent 

(MetaClass  Class  Edited:  (*  "24  August  1985  14:45")) 

(Supers  Student  Officers) 

( Ins tance Variables 

(£radDate  Dec85  doc  (*  graduation  date)) 

(TotalHours  72  doc  (*  quarter  hours  for  graduation)) 

(Address  Dayton, Ohio  doc  (#  where  AFIT  students  live)))) 


Comments  in  INTERLISP-D  are  preceeded  by  an  asterisk  and  enclosed 
with  parantheses.  Starting  with  the  second  line,  one  notes  that  the 
class  AFITStudent  was  edited  at  the  stated  time  and  date.  The  next 
line  demonstrates  inheritance;  in  this  case,  there  are  two  other 
classes  entitled  STUDENT  and  OFFICERS  that  AFITStudent  can  "inherit" 
values  from.  Finally  the  last  line  shows  the  creation  of  three 
instance  variables  along  with  their  default  values.  Therefore,  the 
default  value  of  Graduation  Date  for  all  AFITStudents  is  Dec85.  The 
"doc"  following  the  date  is  a  "placeholder"  used  because  the  number 
of  items  in  the  Instance  Variable  lines  must  be  an  odd  number,  and 
in  this  case  use  of  the  "doc"  brings  all  the  instance  variables  to 
three  items. 

Having  defined  and  edited  the  class  AFITStudent,  it  is  now 
possible  to  actually  define  an  object.  Objects  are  defined  after 
classes  are  because  the  object  is  a  specific  instance  of  a  class. 

The  command  to  define  DanTobat  as  an  object  of  the  class  AFITStudent 
is:  (SETQ  DanTobat  (*—($  AFITStudent)  New)) 

This  creates  DanTobat  to  be  a  member  of  the  class  of  AFITStudent.  A 
command  that  checks  whether  an  item  is  indeed  a  LOOPS  object  is: 

(Object?  DanTobat) 

This  will  now  be  true  (T),  having  created  DanTobat  to  be  a  member  of 
AFITStudent.  Prior  to  the  command  that  set  DanTobat  to  be  an  object, 
this  would  have  resulted  in  a  NIL  value.  One  of  the  most  useful  ways 
in  using  objects  is  being  able  to  place  and  retrieve  values  from 
them.  The  command  that  retrieves  values  is: 

(GetValue  DanTobat  ’Address)  results  in:  "Day ton .Ohio" 
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The  second  item  in  this  command  must  be  a  LOOPS  Object  and  the  last 
item  which  is  quoted  is  an  Instance  Variable  name  which  has  already 
been  attached  to  the  class  of  which  the  object  is  a  member.  This 
command  results  in  "Day ton .Ohio"  since  this  was  the  default  value 
given  to  the  AFITStudent  class  for  the  address  instance  variable. 
The  GetValue  and  PutValue  LOOPS  commands  are  very  similar  to  the 
GETPROP  and  PUTPROP  commands  of  property  lists  in  LISP.  The  way  to 
attach  a  value  to  the  object,  rather  than  the  use  class  default 
value  is  with  PutValue: 

(PutValue  DanTobat  'GradDate  'Nov85) 

This  now  changes  the  association  of  GradDate  with  the  object  to 
Nov85  instead  of  Dec85.  However,  the  default  value  of  the  class 
remains  unchanged.  Thus,  if  BobRussel  is  also  a  member  of  the 
AFITStudent  class: 

(GetValue  BobRussel  'GradDate)  results  in:  "Dec85" 
Whereas  (GetValue  DanTobat  'GradDate)  now  results  in:  "Nov85" 

Having  discussed  the  concept  of  objects  and  classes,  it  is 
straight  forward  to  extend  the  idea  to  the  one  of  a  metaclass.  A 
Metaclass  is  a  class  whose  instance  variables  are  shared  by  several 
subclasses.  Metaclasses  were  not  used  in  this  project.  Objects  were 
only  used  as  the  blackboards  in  SENTINEL,  mainly  because  of  their 
inability  to  use  variable  names  for  objects,  unlike  property  lists 
which  do  permit  this  capability.  As  an  example,  suppose  the  LISP 
literal  atom  or  variable  TEST  is  set  to  BobRussel.  Any  time  TEST  is 
evaluated  it  results  in  BobRussel.  Thus  if  this  command  is  used: 

(PUTPROP  TEST  'NAME  'BOB) 
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The  result  is  a  property  list  under  BobRussel  whose  value  for  the 
variable  NAME  will  be  BOB.  Thus,  these  two  commands  in  LISP  are 
equivalent:  (GETPROP  TEST  ’NAME) 

or  (GETPROP  'BobRussel  ’NAME)  result  in: "Bob" 

However  this  will  not  work  with  LOOPS  commands,  since  the  object 
where  the  value  is  placed  on  cannot  be  a  variable.  Thus, 

(GetValue  TEST  'GradDate)  results  in:  "NIL" 

LOOPS  knows  of  no  object  named  TEST.  However, 

(GetValue  BobRussel  'GradDate)  results  in:"Dec85" 

The  inability  to  use  variables  in  place  of  objects  was  a  significant 
handicap  to  the  concept  of  locating  a  specific  launch  site  among 
many  suspected  launchsites,  as  well  as  having  a  variable  number  of 
launch  sites  or  launch  events.  More  elaborate  ways  of  getting  around 
this  obstacle  were  tried,  but  they  were  defeated  because  LOOPS  maps 
its  objects  and  any  values  which  may  be  evaluated  to  be  objects  to  a 
specific  memory  location.  Even  if  TEST  is  evaluated  using  more 
complex  techniques,  it  results  in  a  pointer  to  the  memory  location 
for  the  LOOPS  object  BobRussel.  If  TEST  is  now  reset  to  DanTobat, 
all  references  to  TEST  for  LOOPS  still  point  to  BobRussel  even 
though  the  value  for  TEST  has  been  changed.  For  these  reasons, 
objects  were  not  used  widely  in  this  project,  but  the  rule  based 
facitlities  of  LOOPS  were  used  extensively. 

Rule  Sets 

Before  writing  rule  sets,  a  class  must  be  defined  that  will 
serve  as  the  "Workspace  Class"  for  the  rule  set.  If  no  classes  have 
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been  defined  or  an  incorrect  workspace  class  is  given  to  the  rule 
set,  the  rule  set  will  not  run.  Please  note  that  an  object  is  an 
instantiation  of  a  class,  and  not  a  class  itself.  Therefore, 
BobRussel  cannot  be  given  to  a  rule  set  as  a  workspace  class,  but 
AFITStudent  can  be.  Rule  sets  are  created  by  using: 

(*-$RuleSet  New) 

The  user  is  then  prompted  for  the  rule  set  name  which  for  this 
example  will  be  "Regions."  Having  defined  a  new  rule  set,  the  rules 
are  actually  placed  in  it  by  editing  the  rule  set.  The  command  to  do 
this  is: 

(*- Regions  ER) 

Regions  is  the  name  of  the  rule  set,  and  this  sends  the  user  to  a 
menu  based  rule  editor,  whose  menu  can  be  invoked  only  by  typing  a 
(control)  X  or  a  (control)  Z.  If  the  editor  does  not  invoke  the  menu 
upon  use  of  a  (control)  X,  this  normally  indicates  that  there  is  a 

LISP  related  problem  in  one  of  the  rules  such  as  a  missing 

parantheses.  In  any  case,  (control)  Z  will  always  invoke  the  menu. 
This  menu  permits  the  user  to  compile  the  rule  set  into  LISP,  save 
it,  return  to  the  previous  editor  or  actually  view  the  translated 
LISP  code  of  the  rule  set.  At  the  top  of  the  rule  set  is  the  control 

structure  which  after  editing  looks  like  this: 

[Editing  RULESET  Regions 

Workspace  Class:  Launchsite; 

Compiler  Options:  TT; 

Temporary  Variables:  ; 

Control  Structure:  Dol; 

***##***■#"»■■* 

The  first  item  which  can  be  edited  is  the  workspace  class  which  must 


be  a  previously  defined  LOOPS  class.  There  are  four  compiler  options 
which  are  useful  for  debugging  purposes: 

T:  Trace  if  the  rule  satisfied. 

TT:  Trace  if  rule  is  tested. 

B:  Break  if  rule  is  satisfied. 

BT:  Break  if  rule  is  tested. 

When  this  particular  rule  set  is  run  the  TT  compiler  option  will 
show  the  user  every  rule  that  is  tested.  The  temporary  variables  are 
used  to  define  local  variables  that  exist  only  within  that  rule  set 
and  are  identical  to  the  temporary  variables  used  in  a  LISP  PROG 
statement.  LOOPS  permits  the  rule  set  to  have  a  varying  control 
structure  to  control  the  execution  of  rules: 

Dol:  Exits  when  first  rule  satisfied  is  executed. 

DoAll:  All  rules  that  are  satisfied  are  executed. 

Whilel:  Cyclic  version  of  Dol.  Execute  while  one  rule  satisfied. 
WhileAll:  Cyclic  version  of  DoAll. 

This  varying  control  structure  permits  the  more  efficient  use  of 
rulesets.  Note  that  in  order  to  use  the  Whilel  or  WhileAll  control 
structure  the  user  must  specify  what  the  Iteration  Condition  is. 
Normally,  T  for  True  is  used  for  this  condition.  The  Iteration 
Condition  ,-s  not  located  in  the  normal  Rule  Set  editor  control 
structure  as  was  shown  for  the  "Regions"  rule  set  above.  Instead, 
the  user  must  select  the  "EditAllDecls"  option  from  the  rule  base 
editor  menu  to  edit  this  item. 

The  actual  rules  themselves  are  IF  THEN  constructs  which  permit 


the  use  of  regular  LISP  instructions  as  well  as  shorthand  operations 
on  LOOPS  objects.  The  rule  is  ended  by  a  semicolon.  The  most 
frequently  used  operations  between  variables  or  objects  are  the 
mathematical  ones  such  as  =,  >  and  <  or  >=  and  <=.  The  equal 
operator  can  also  be  used  with  variables  such  as:  "IF  TEST  = 
'BobRussel."  Other  operators  are  available  and  are  listed  on  pages 
83  and  84  of  the  LOOPS  manual.  The  following  example  shows  the  top 
rule  in  standard  LOOPS  LISP  code  and  the  bottom  one  utilizes 
shorthand  notation  for  operations  involving  objects.  The  two  rules 
are  identical  and  accomplish  the  same  thing: 

IF  (GetValue  BobRussel  'GradDate)  =  'Dec85 
THEN  (PutValue  BobRussel  'Hours  67); 

IF  BobRussel :GradDate  =  'Dec85 
THEN  BobRussel: Hours  67; 

Thus,  use  of  LOOPS  objects  does  make  the  accessing  and  placing  of 
values  much  easier.  However,  the  same  name  cannot  be  used  for  both  a 
LISP  variable  and  an  Instance  Variable.  In  the  example  above,  HOURS 
and  GRADDATE  cannot  be  used  as  LISP  variables  since  they  are 
instance  variables  of  the  BobRussel  object.  Note  that  each  THEN 
statement  is  ended  by  a  semicolon.  Both  the  IF  and  THEN  parts  may 
have  multiple  arguments,  which  are  interpreted  as  logical  ANDs.  For 
example,  the  rule:  "IF  ABC  THEN  D  E;"  is  interpreted  as: 

IF  A  AND  B  AND  C  THEN  D  AND  E. 

A  rule  can  also  just  have  a  THEN  consequent  with  no  IF  part.  In 
these  cases,  the  rule  is  always  executed.  Execution  of  the  rule  set 
can  alway§  be  terminated  by  a  "(STOP)"  statement,  which  overrides 
the  control  structure.  Thus,  use  of  a  "THEN  (STOP);"  will  cause  any 


execution  which  has  reached  that  point  to  be  stopped.  The  following 
figure  illustrates  a  simple  five  rule  set  called  Regions.  Regions 
maps  the  reported  launchsite  into  the  country  of  THEM  using  only 
five  rules.  Notice  that  the  last  statement  is  a  THEN  not  preceeded 
by  an  IF  statement.  That  coupled  with  the  Dol  control  structure 
specified  at  the  top  of  the  rule  set  indicates  that  if  no  rule  has 
been  triggered  previously,  it  is  assumed  that  the  launchsite  must 
belong  to  the  central  region.  The  page  afterward  demonstrates  the 
use  of  the  TT  compile  option  which  results  in  a  printout  of  every 
rule  as  it  is  tested  and  finally  the  execution  of  the  last  rule. 

To  actually  run  a  rule  set,  use  the  command: 

(RunRS  rulesetname  workspace) 

The  workspace  is  a  LOOPS  object  that  the  rule  set  acts  upon.  Since 
Regions  does  not  act  upon  any  rule  set  (instead  the  LISP  variable 
REGION  is  set  to  some  value),  it  is  sufficient  to  use: 

(RunRS  'Regions) 

The  value  of  the  evaluated  rule  set  is  the  value  of  the  final  rule 
executed.  If  no  rule  is  executed  the  value  is  NIL.  The  RunRS  command 
can  also  be  used  as  part  of  an  IF  or  THEN  statement.  Rulesets  which 
control  the  triggering  of  other  rule  sets  are  termed  metarule  sets. 
One  final  command  to  use  in  rulesets  is  to  print  them  out  using: 

(♦-rulesetname  PPRules) 

There  are  several  pitfalls  in  using  rule  sets.  For  one,  in  the 
"Buttress"  release  of  LOOPS  there  is  no  scroll  bar  for  editing  rule 
sets.  As  a  result  one  loses  the  ability  to  edit  the  control 
structure *or  the  first  few  rules  unless  rule  sets  are  kept  very 
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9«-(«-  Regions  PPRules) 

Using  $Regions 

FtuleSet  Regions 

Last  Edited:  28- Oct- 35  14:25:08  by 

W o r k  S  p  a  c  e  C lass:  L  a  u n c h site; 
Compiler  Options:  ; 
Temporary  Vars :  ; 

C  o  n  t  r  o  1  S  t  r  u  c  t  u  r  e  :  D  0 1 ; 

* :+:  *  * 


(*  This  rule  set  determines  what  region  in  the  country  of  T 
HEM  the  launchsite  is  located  in.) 

IF  LNCHLAT  <=  26 
LNCHLONG  <=  17 
THEN  (SET Q  REGION  ' OUTT) ; 

IF  LNCHLAT  <=  26 
LNCHLONG  >  17 
THEN  (SETQ  REGION  ’INN); 

IF  LNCHLAT  >  26 
LNCHLONG  >=  18 
LNCHLAT  <  33 

THEN  (SETQ  REGION  ’WEST); 


IF  LNCHLAT  >=  33 
LNCHLONG  >  19 
THEN  (SETQ  REGION  ’WEST); 

IF  LNCHLAT  >=  33 
LNCHLONG  <=  19 
THEN  (SETQ  REGION  ’SOUTH); 

( *  If  1  a u n c h site  d o e s  n o t  f a  1 1  i n  t h e  a b o v e  r e g i o n s ,  it  is 
a ;  s  u  m  e  d  t  o  b  e  1  o  c  a  t  e  d  i  n  t  h  e  C  E  N  T  R  A  L  r  e  g  i  o  n ) 

THEN  (SETQ  REGION  ’CENTRAL); 

( R u 1 e S e t  S o u r  ce  " L 2 U 0 . 1 1 [ : . A K 9 . 4 " ) 


Figure  29. 'Printout  of  the  Regions  Rule  Set 
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43*-(RunRS  ’Regions) 

Testing  rule  1  in  RuleSet  Regions 

(+  This  rule  set  determines  what  region  in  the  country  of  THEM  th 
e  launchsite  is  located  in.) 

IF  LNCHLAT  <=26 
LNCHLONG  <=17 
THEN  (SETQ  REGION  ’OUTT); 

Rule  1  from  Regions 

edited  by  on  6- Nov- 65  1 3:1 4; 51 

T es t  i nq  rule  2  i n  Flu  1  eSe t  Regions 

IF  LNCHLAT  <=26 
LNCHLONG  >17 
THEN  (SETQ  REGION  ’INN); 

,,,  Rule  £  from  Regions  _ 

edited  by  on  6- Nov- 55  13:14:51 

T  e s  t  i  n  q  r u  1  e  3  i  n  R u  1  e S  e  t  Regions 

IF  LNCHLAT  >  26 
LNCHLONG  >=18 
LNCHLAT  <  33 
THEN  (SETQ  REGION  ’WEST ); 

,,,  Rule  3  from  Regions 

edited  by  on  6- Nov- 65  13;  14: 51 

T e s t  i  n ci  r u  1  e  '1  i  n  R u  1  eSe t  Regions 

IF  LNCHLAT  >=33 
LNCHLONG  >  19 
THEN  (SETQ  REGION  ’WEST); 

Rule  4  from  Regions 

edited  by  on  8- Nov- 65  13:14:51 

Executing  rule  4  in  RuleSet  Regions 

IF  LNCHLAT  >=33 
LNCHLONG  >  19 
THEN  (SETQ  REGION  ’WEST): 

,,,  Rule  4  from  Regions 

p  j d  t*  V  0 tl  ©■  Mo  v  *  C’v'  "1  •-'!"!  •+! 5  • 

W  E  S  T  _ 


Figure  30.  Printout  of  toe  Testing  and  Execution  of  the  Regions  Rule  Set. 
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small  or  the  bottom  part  of  the  rule  set  is  deleted  and  then 
rewritten  after  the  changes  are  made.  The  other  shortcoming  is  the 
lack  of  an  logical  OR  capability.  Instead  of  being  able  to  use: 

IF  A  AND  (B  OR  C)  THEN  D; 
one  must  write  two  separate  rules: 

IF  A  AND  B  THEN  D;  IF  A  AND  C  THEN  D; 

This  is  also  true  for  values  that  fall  into  discontinous  ranges.  For 
example  in  searching  for  a  latitude  that  lies  below  23  degrees  and 
above  30  degrees,  one  is  tempted  to  use: 

IF  LATITUDE  <=  23 
LATITUDE  >  30 
THEN  (SETQ  REGION  'POLAR); 

But  this  rule  will  never  be  triggered  since  it  would  require  a 
latitude  that  is  both  less  than  23  degrees  yet  higher  than  30 
degrees.  One  must  write  two  rules  to  cover  this  case  as  well.  Care 
must  be  taken  when  using  mathematical  operators  that  the  variable 
used  is  always  a  number.  For  example,  if  LATITUDE  is  not  set,  its 
value  will  be  NIL,  and  using  NIL  with  >  and  <  will  result  in  an 
error.  The  solution  is  to  check  and  if  LATITUDE  is  NIL  then  set 
LATITUDE  to  0  or  some  number  that  will  not  trigger  a  rule 
improperly . 

In  spite  of  these  shortcomings,  the  LOOPS  rule  based  facility 
was  used  extensively  during  this  project  because  it  does  speed  up 
programming  time  considerably.  The  LOOPS  manual  itself  is  difficult 
for  the  beginner  to  use  because  it  is  not  laid  out  in  the  order  that 
one  would’use  it  and  because  its  examples  cannot  easily  be 


duplicated,  and  are  inconsistent  from  chapter  to  chapter.  There  are 
other  facilities  available  in  the  LOOPS  package  such  as  active 
values,  and  knowledge  bases.  However  those  facilities  were  of 
limited  value  to  this  project.  The  knowledge  base  facilities  for 
example,  store  the  values  of  diverse  LOOPS  objects  and  their 
variables  at  different  points  in  time. 

To  summarize,  LOOPS  is  a  very  good  tool  for  object  oriented 
programming  that  has  some  useful  capabilities  in  other  areas  such  as 
rule  bases.  The  major  limitations  of  the  "Buttress"  release  are  the 
lack  of  a  sroll  bar  when  editing  rule  sets,  and  the  inability  to 
easily  use  variables  with  objects.  These  factors  made  the  SENTINEL 
rule  sets  smaller  and  more  numerous  than  they  would  have  been 
otherwise,  and  forced  SENTINEL  to  rely  on  property  lists  for  its 
actors  instead  of  converting  the  actors  to  objects.  In  spite  of  its 
flaws,  only  thorugh  the  use  of  the  LOOPS  expert  systems  building 


tool  was  it  possible  to  complete  SENTINEL  in 
this  study. 


the  time  alloted  for 
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Miscellaneous  Functions  and  Program  Listing 

The  intent  of  this  section  is  to  cover  some  of  the  SENTINEL 
functions  and  rule  sets,  which  although  valuable,  were  not  discussed 
in  the  main  text.  At  the  end  of  this  section  is  located  the  listing 
of  every  LISP  program  and  LOOPS  rule  set  used  in  SENTINEL. 

ADDTARGET 

ADDTARGET  is  a  function  which  makes  it  easier  for  the  MWO  to  add 
targets  to  the  SENTINEL  scenario.  It  asks  the  user  a  series  of 
questions  such  as  "What  is  the  latitude  of  the  Target?"  to  which  the 
user  responds.  A  new  target  actor  is  thus  created  and  a  property 
list  containing  all  the  values  that  the  MWO  replied  to.  This  target 
actor  is  automatically  included  in  all  the  follow  on  scenario 
processing  since  it  is  added  to  FANCALL  for  every  launch  site  actor. 
The  RANGE  and  HEADING  to  this  target  are  therefore  computed  for  any 
launch  events  which  occur  after  ADDTARGET  has  been  invoked. 

COMBINATORIAL 

COMBINATORIAL  is  a  LISP  function  which  is  used  to  combine  the 
evidence  of  two  factors  into  a  single  combined  factor.  The  first 
factor  is  the  "strong"  factor  which  more  greatly  affects  the  outcome 
of  the  result  than  the  second  "weak"  factor.  Each  factor  is 
expressed  as  a  number  with  a  value  ranging  from  1  to  4  where  4  is 
the  highest  state  possible  and  1  is  the  lowest.  The  following 


demonstrates  the  results  of  COMBINATORIAL,  using  the  symbol  @  to 
represent  the  process,  and  where  the  first  number  stated  is  the 


"strong"  factor: 
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Note  that  COMBINATORIAL  is  not  a  way  of  reasoning  with 
uncertainty.  Instead,  it  is  a  useful  method  of  combining  facts 
easily  and  quickly  in  a  numerical  fashion  to  produce  a  higher  level 
of  abstraction.  The  same  results  could  have  also  been  found  by 
simply  enumerating  all  possible  states  of  occurences.  The  result  has 
"noise"  in  it  but  since  all  these  facts  and  results  are  discrete  so 
there  is  no  probability  involved.  A  state  is  simply  achieved  or  not 
achieved.  As  an  example  of  using  COMBINATORIAL,  consider  attempting 
to  arrive  at  a  more  abstract  general  state  by  combining  two  facts: 
the  number  of  sensors  that  are  OUT  with  ZERO  capability  with  those 
that  are  AFFECTED  with  PARTIAL  capability.  In  this  case,  the  number 
of  sensors  that  are  OUT  is  obviously  of  more  concern  than  the  number 
of  AFFECTED  sensors  so  that  OUT  is  the  "strong"  factor.  Assuming  the 
state  of  OUT  is  at  a  4  and  the  state  of  affected  is  at  a  2,  which 
result  in  an  overall  3.  Before  the  combination,  two  statements  could 
be  made; 

Number  of  OUT  sensors  is  HIGH,  there  is  cause  for  ALARM. 

Some  AFFECTED  sensors  are  reported,  CAUTION  is  recommended. 
Following  COMBINATORIAL  a  more  abstract,  general  statement  can  be 
made  which  although  not  as  accurate  as  the  above  two  summarized  the 


situation  succintly: 

WARNING:  Overall  sensor  status  DEGRADED. 

COMBINATORIAL  was  used  mainly  to  produce  the  abstract  states  which 
were  interpreted  as  comments. 

CONVERT 

CONVERT  is  a  LISP  function  which  makes  it  easier  for  the  MWO  to 
understand  the  output  of  SENTINEL.  Since  SENTINEL  launch  site  and 
target  actors  are  not  identified  by  their  name,  the  original  output 
features  the  use  of  the  property  tags  of  the  actors  such  as  TGT6, 

LS8  and  so  on.  CONVERT  takes  a  list  or  a  single  value  in  the 
property  tag  format,  and  converts  it  to  its  NAME  property  on  the 
property  list.  Thus,  the  list  "(TGT7  TGT8  TGT9)"  is  converted  to 
"(KEYNORTH  RIVERTON  NORTHCITY) . " 

HELP 

HELP  is  the  on  line  operator's  manual  to  SENTINEL  which  is 
intended  to  assist  the  user  in  SENTINEL  operations.  It  is  invoked  by 
typing  in  "(HELP)"  and  gives  the  user  a  short  introduction  to  the 
major  features  provided  in  SENTINEL.  A  short  troubleshooting  section 
is  included  for  the  use  as  a  guide  to  several  items  which  may 
malfunction  when  first  installing  SENTINEL  on  a  LISP  machine. 

MODIFY 

MODIFY  is  a  LISP  function  which  is  of  great  value  in  the  training 
or  troubleshooting  mode.  MODIFY  takes  the  SIMCOPE  message  which  has 
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been  most  recently  processed  and  permits  the  user  to  MODIFY  almost 
any  parameter  of  an  ADS-1,  ADS-2  or  BSS  message.  For  an  ADS-1 
message,  the  sensor  infrared  intensity,  site  confidence,  reported 
launch  site  coordinates  and  the  status  of  the  reported  sensor  can 
all  be  modified.  Invoked  when  the  user  types  in  (MODIFY),  the 
program  informs  the  user  of  what  parameter  is  currently  under 
consideration,  what  its  previous  value  is  and  what  the  acceptable 
range  of  values  of  the  parameter  are.  The  user  can  type  in  the  new 
value  which  is  automatically  incorporated  into  the  MESSAGE.  Typing 
in  NIL  after  the  first  entry  results  in  SENTINEL  processing  the 
modified  message.  NIL  on  the  first  entry  exits  from  the  program 
without  invoking  SENTINEL  again. 

Since  the  message  is  actually  modified  by  use  of  the  RPLACA  and 
the  RPLACD  commands,  the  old  value  for  the  message  is  destroyed. 
MODIFY  does  this  function  for  ADS-1  messages  while  M0DIFY2  and 
M0DIFY3  perform  the  function  for  ADS-2  and  BSS  messages 
respectively.  INT  and  SYS  messages  cannot  be  modified.  It  is 
important  to  note  that  only  the  most  recently  processed  message  can 
be  modified  automatically.  If  an  ADS-1  EVENT3  message  is  followed  by 
an  SYS  message,  typing  in  (MODIFY)  will  result  in  a  statement  that 
"SYS  messages  cannot  be  modified."  In  order  to  use  MODIFY  in  those 
circumstances,  MESSAGE  must  be  set  to  the  message  which  caused 
EVENT3,  and  EVENTMATCH  must  be  set  to  EVENT3  if  it  is  not  EVENT3 
already . 


SENTINEL 


SENTINEL  is  the  initialization  LISP  function.  Typing  in 
(SENTINEL)  results  in  all  blackboards,  launch  sites,  and  target 
actors  being  returned  to  their  original  state.  Counters  are  also 
initialized  and  if  the  HIVALTAG  of  any  launch  site  actor  is  blank, 
SENTINEL  will  process  the  HIVALTAG  using  HIVALCALL  and  embed  the 
result  on  the  appropriate  launch  site  actor.  EVENTs  and  the 
EVENTLIST  and  MESSAGE  are  all  set  to  NIL  and  the  statement: 
"SENTINEL  DECISION  AID  INITIALIZED"  appears  to  inform  the  MWO  when 
initialization  is  complete. 

Program  Listing 

What  follows  is  the  complete  listing  of  all  the  SENTINEL 
functions  and  rule  sets.  All  together,  SENTINEL  has  over  800  rules. 
The  index  to  this  listing  is  located  on  page  viii,  near  the 
beginning  of  this  report. 


(ADDTARGET 

[LAMBDA  NIL 


(*  edited:  "11 -Oct-85  14:24") 


<;+ ADDTARGET;  permit;  the  addition  or  updating  of  a  target  by  readi 
ng  in  response's.  Updates  the  property  list  of  the  launchiste,  and  creates’  a  new  pro 
pety  list  if  required,  Also  updates  the’target  area  list  Inputs;  No  inputs  required,  To 
use  type  fADQTARGET  OUTPUTS;  a  property  list  under  the  tag  of  TGT  NUMBER  c 
onsi sting  Of  (TGT NU M  NAME  XXXX  LAT  XX  LONG  XX  TYPE  XXXX)Vl 


(PROG  (READNAME  READNUM  READLAT  READLOHG  READTYPE) 
(printout  T  "LATEST  TARGET  TO  BE  ADDED  WAS  “ 
LASTGT  T) 

(printout  T 

" T v p e  NIL  if  v o u  d o n  '  t  w i s h  t o  a d d  a  t a r q et , " 
T)‘ 

(printout  T 

"What,  is  TARGET  number  ?  (Begin  with  a  TGT)  " 
T) 

{  F  T  O  P  F  A  n  M 1 1 M  {  P  A  T  fi  M  M  T  I  M  T  I  S  I 
!  v  nLnultui'i  v  l  '•  n  i  I'l  n  ±  l.  mu  /  y 

(COHD 

((NULL  READNUM) 

(RETURN))) 

(SETQ  LASTGT  READNUM) 

(printout  T  "WHAT  IS  TARGET  NAME  ?"  T) 

(SETQ  READNAME  (RATOM  NIL  NIL)) 

(PUT PROP  READNUM  (QUOTE  NAME) 

READNAME) 

(printout  T  "What  is  tarqet  LATITUDE  ?"  T) 
(SETQ  READLAT  (RATOM  NIL  NIL)) 


(*  Decide  what  target  area  it  falls  into  by  these  rules;  Target  Latitud 
e  <  24  degrees  =  Area  i  Target  Latitude  >  34  degrees  =  Area  4  Target  Latitude  > 
29  but  <34  =  Area.  3  Target  Latitude  <  29  but  >24  =  Area  2) 


(PUTPROP  READNUM  (QUOTE  LAT) 

READLAT) 

(printout  T  "What  is  tar  get  LONGITUDE  ?  "  T) 
(SETQ  READLONG  (RATOM  NIL  NIL)) 

(PUTPROP  READNUM  (QUOTE  LONG) 

READLONG)  ' 

(printout  T 

"What  is  TARGET  type  ?  (City,  Military,  Industrial  or  03) 

ii 

T) 

(SETQ  READTYPE  (RATOM  NIL  NIL)) 

(PUTPROP  READNUM  (QUOTE  TYPE) 

READTYPE) 

(printout  T  "PROPERTY  LIST  UNDER  "  READNUM 

"  CREATED,  WITH  THE  FOLLOWING  VALUES," 

.  T) 

(RETURN  (GETPROPLIST  LASTGT]) 


us  my  'j> Huoi i.' urn  lueiiuu 

V-.  Rule  Set  ADS  1  Confidence 

Last  Edited:  3- Oct- 85  17:53:42  t>y 

Workspace  Class:  Sensors; 

Compiler  Options:  ; 

T  e  m  p  o  r  a  r  y  V  a  r  s  :  P 1 S 1J  M  P 1 L  3  T  ¥  P  E ; 

Control  Structure:  DOALL; 

•+ ;*  :f  * 


vi 


(*  The  following  RuleSet  uses  1 1 R I NTEWS I  TV ,  1SEM2QRC0NF , 
SULT  and  SENSORNUMBER  to  compute  an  AD 31  confidence) 

IF  PI  I R INTENSITY  <  £ 

THEN  ( P LI T P R 0 P  E V E N T C 0 U NT  '  P 1 1 R T Y P E  ‘  IJ N K N 0 W N ) 

(SETQ  PI SUM  S); 


IF  PI I R INTENSITY  >  7 

THEN  f P U T  P  R  0 P  E  V E N T C  0 U  N T  ' P 1 1 R T V  P E  1 U N K N 0 W  N ) 
(SETO  PI SUM  0); 


IF  PI IR INTENSITY  >=  2 
P1IRINTENSITY  <  5 

THEN  (PUT PROP  EVE NT COUNT  'P1IRTYPE  1  TVPE1) 
(SETO  P1SUM  2) 

(SETO  P1LSTYPE  (GET PROP  RESULT  'TYPE)); 


IF  P1IRINTENSITV  >=  5 
P1IRINTENSITY  <  6 

THEN  ( P U T P R 0 P  E V E N T C 0 U NT  ' P 1 1 R T V PE  'I N D I S T I N C T ) 
(SETO  PiSUM  1); 


IF  P1IR INTENSITY  >=  6 
P1IRINTENSITY  <  =  7 

THEN  (PUT PROP  EVENTCHIJNT  'P1IRTYPE  '  TYPES) 
(SETO  PI SUM  ' 2 ) 

(SETO  P'lLSTYPE  (GETPROP  RESULT  ’TYPE)); 


(*  This  rule  matches  the  IR  intensity  reading  to  the  type 
f  m issi les  r e p o r t e d  a t  t h e  la u n c h s ite , ) 


IF  (GLC  P1IRTYPE)  -  (GLC  P1LSTYPE) 

THEN  (SETQ  PISUM  (PLUS  PISUM  I)); 

( *  The  f  o 1 1 o w i n  g  c 1  a s s i f  v  r e  p o  r t  e  d  s e n s o r  c  o n f i d e  n c  e  i n  t  o 
a  t  e  g o  r i e  s  o f  HIGH,  M  E  D  U I M  o r  L  0  W . ) 


IF  P1SENS0RC0NF  >=  7 

THEN  (SETO  PISUM  (PLUS  PISUM  3)) 


IT  HISLNSUKUUNI-  ;  =  / 

THEN  (SETO  P1SUM  (PLUS  P1SUM  3)) 

( PUTPROP  EVENTCOUHT  ' P1SEN30RG0NF  'HIGH); 

IF  P1SENSORCONF  <  7 
P1SENSORCONF  >=  4 
THEN  (SETO  PiSUM  (PLUS  P1SUM  2)) 

( P IJ T P R 0 P  E V ENT C 0 IJ NT  'PISE N S 0 R C 0 N F  'ME 0 IJ I M ) ; 

IF  P1SENSORCONF  <  4 

THEN  (PUTPROP  EVENTCOUNT  ' P1SENSORCONF  ’LOW) 

(SETQ  PISUM  (PLUS  PISUM  1)); 

(*  The  following  modify  the  confidence  level  according  to- w 
hat  the  CAPABILITY  of  the  reported  satellite  is:  FULL  PARTI 
AL  or  LOW.) 


IF  SENSORNUMBER  =  'SI 

THEN  (SETO  P1SEN30RCAP  (GETPROP  ' ADSSOUTH 
( P  IJ  T  P  R  0  P  E  V  ENT  C  0  IJ  N  T  '  P 1 S  E  N  S  0  R  T  Y  PE  'A 


•CAPABILITY)) 
DSSOUTH) ; 


IF  SENSORNUMBER  =  ' N1 

THEN  (SETO  P1SENSQRCAP  (GETPROP  'ADSNORTH  'CAPABILITY)) 
( P I J T P R 0 P  E V E N T C 0 U N T  'PI S E N S 0 R T Y PE  'ADS N 0 F: T H ) ; 


IF  P1SENS0RCAP  =  'NIL 

THEN  (PUTPROP  EVENTCOUNT  'P1SENSORCAP  ’FULL); 


IF  P1SENSGRCAF  =  'FULL 

THEN  (PUTPROP  EVENTCOUNT  'P1SENSORCAP  'FULL); 

IF  P1SENSORCAP  =  'PARTIAL 
THEN  (SETO  PISUM  (SUB1  PISUM)) 

(PUTPROP  EVENTCOUNT  ' P1SENSORCAP  'PARTIAL); 

IF  P1SENSORCAP  =  'ZERO 

THEN  (SETO  PISUM  (PLUS  PISUM  -2)) 

( P  IJ  T  P  R  0  P  E  V  ENT  C  0  IJ  N  T  'PISE  N  S  0  R  CAP  '  Z  E  R  0 ) ; 

( *  The  f  o  1 1  o  w  i  n  g  p  e  r  rn  i  t  s  INTEL  B  o  a  r  d  t  o  c  h  a  n  g  e  the  c  o  n  f  i  d  e  n  c 
e  level.) 

THEN  (SETO  P1INTS0URCE  (GetValue  Intel  Board  'SOURCE)) 

( SETQ  PI I N T C 0 N 0  ( G e t V a  1 u e  I n t e 1 B o a r d  'INTEL G 0 N D I T 1 0 N ) ) ; 

IF  P1INTCOND  =  'RED 
PI I  NT SOURCE  =  'OPEN 
THEN  (SETQ  PISUM  (PLUS  PISUM  1)); 


IF  P.l  INTCOND 


RED 


IF  P1INTC0N0  =  'RED 
PI I HTSOURCE  =  'INTEL 
THEM  (SETQ  PISUM  (PLUS  PiSUM  2)); 

IF  P1INTCOND  =  'YELLOW 
P1INTSOURCE  =  'INTEL 
THEN  (SETQ  PISUM  (PLUS  PISUM  1 ) ) ; 

IF  PI I  NT CO ND  =  'GREEN 

THEN  (SETQ  PISUM  (SUB1  PISUM)); 

IF  P1INTCOND  =  'TEST 
P1INTSOURCE  =  'INTEL 
THEM  (SETQ  PiSUM  (PLUS  PiSUM  1)); 

(*  The  following  permits  the  status  of  the  1  auric hsite,  KNOto 
N ,  U  N  K  0  W  N  o  r  S  U  S  P  E  C  T  E  0  t  o  i  n  f  1  u  e  n  c  e  t  h  e  c  o  n  f  i  d  e  n  c  e  , ) 

THEN  (SETQ  PILSTYPE  (GETPROP  RESULT  'TYPE)); 

IF  PILSTYPE  =  'GREEN 

THEN  (PUT PR OP  EVENTCOUNT  'PiLSTYPE  ’SUSPECTED); 

IF  PILSTYPE  =  'NIL 

THEN  ( P  U  T  P  R  0  P  E  V  E  N  T  C  0  U  N  T  '  P 1 L  S  T  Y  P  E  '  IJ  N  K  N  0  W  N ) ; 

IF  PiLSTYPE  ~=  'NIL 
PILSTYPE  -=  'GREEN 

THEN  ( P U T P R 0 P  E V E N T C 0 U NT  ' P i L S T Y P E  ' K N 0 W N ) ; 

( *  Final! y ,  P i S I J  M  i s  a s  s i g  n e  d  t  o  c a  t  e  g  o r i e  s  o f  c o n  fide n  c e . ) 
IF  PISUM  >=  6 

THEN  ( PUTPROP  EVENTCOUNT  ' P1CONF I DENCE  ’ EXTH I GH ) ; 

IF  PiSUM  <  6 
PISUM  >=  4 

THEN  (PUTPROP  EVENTCOUNT  ' P1CONFIDENCE  'HIGH); 

IF  PiSUM  =  3 

THEN  ( P  U T  P  R  0 P  E  V  ENT  C  0 U  N T  'Pi C  0  N FIDE  N C  E  ‘MI  X  E  D )  ; 

IF  PISUM  =  2 

THEN  ( P U TPROP  E V E N T C 0 U N T  'Pi C 0 N F 1 0 E N C E  ' L 0 W ) ; 

IF  PiSUM  <=  i 

THEN  (PUTPROP  EVENTCOUNT  ' P1CONF I DENCE  'EXTLOW); 

#&(Ru 1 eSetSource  "LZUU . z I [ : . AK3 . 3" ) 
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using  ♦Huoj.r eauuieota 

RuleSet  ADSIFeatureSet 

Last  Edited:  3-oct-ss  ia;00:sr  by 
Workspace  Class:  Targets; 
Comp i 1 er  Op  t i ons :  ; 
Temporary  Vars:  ; 

Control  Structure:  DOALL; 
*  *  *  *  :+:  +  +  + 


(*  This  rule  set  accepts  the  input  of  an  event  list  and  ret 
urns  the  feature  set  of  the  event  for  the  AD SI  event) 

THEN  (SETQ  F’lIRTYPE  (GETPROP  EVENTCOUNT  '  P1IRTYPE  ) ) 

( S  E  T  Q  P 1 S  E  N  S  0  R  C  0  N  F  (  6  E  T  P  R  0  P  E  V  E  N  T  C  0 IJ  N  T  'PISE  N  S  0  R  C  0  N  F ) ) ; 


IF  SENSORNUMBEF:  =  'SI 

THEN  (SETQ  P1SENS0RCAP  (GETPROP 


'  ADSSOUTH  ' CAPAB I L I T Y ) ) ; 


IF  SENSORNUMBEF:  =  'N1 

THEN  (SETQ  P1SENS0RCAP  (GETPROP 


'  ADSNORTH 


'CAPABILITY)); 


IF  F'ISENSORCAP  =  'FULL 
P1SENS0RC0NF  -  'HIGH 
THEN  (PIJTPROP  EVENTCOUNT  '  P1SENS0R  9); 


IF  PI SENSOR CAP  =  'FULL 
F'ISENSORCONF  =  'MEDIUM 
THEN  (PIJTPROP  EVENTCOUNT  'P1SENS0R  8); 


IF  PI SENSOR CAP  =  'PARTIAL 
P1SENS0RC0NF  =  'HIGH 
THEN  (PIJTPROP  EVENTCOUNT  'P1SENS0R  7); 


IF  P1SENS0RCAP  =  'FULL 
F'iSENSORCONF  =  'LOW 
THEN  (PIJTPROP  EVENTCOUNT  '  Pi  SENSOR  6); 

IF  P1SENS0RCAP  =  'PARTIAL 
F'ISENSORCONF  =  'MEDIUM 
THEN  (PIJTPROP  EVENTCOUNT  '  PI  SENSOR  5); 

IF  F'iSENSORCAP  =  'ZERO 
F'ISENSORCONF  =  'HIGH 
THEN  (PIJTPROP  EVENTCOUNT  'PI SENSOR  4); 

IF  F'ISENSORCAP  =  'PARTIAL 
F'ISENSORCONF  =  'LOW 
THEN  (PIJTPROP  EVENTCOUNT  '  F'l  SENSOR  3); 
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IF  P1SENS0RCAP  =  'PARTIAL 
PISENSORCONF  =  'LOW 
THEN  (PUTPROP  EVEHTCOUNT  'PISENSOR  3); 

IF  P1SENSGRCAP  =  'ZERO 
PISENSORCONF  =  'MEOUIM 
THEN  (PUTPROP  EVENTCGUNT  'PISENSOR  2); 

IF  P13ENS0RCAP  =  'ZERO 
PISENSORCONF  =  'LOW 

THEN  (PUTPROP  EVENTCGUNT  'PISENSOR  !)• 


( *  F i n  a  11 y n  a 
THEN  (REMPROP 
(REMPROP 
(REMPROP 
(REMPROP 

#.!>:(  RuieSetSource 
68^ 

NIL 

68*- 

NIL 

68+ 

NIL 

63+ 

NIL 
6  8 
NIL 
68+ 

NIL 


bit  of  housecleaning  is  done) 
EVENTCGUNT  'P1LSTYPE) 

E  V  ENT  C 0 1 J  N T  'PI S E  N S 0 R  T ¥ P  E ) 
EVENTCOIJNT  ‘  Pi SENSORCAP ) 

E  V  E  N  T  C  0 IJ  N  T  'PISE  N  S  0  R  C  0  N  F  )  ; 
"GEU8 . il [ : . W2< .3") 


NIL 

68+ 

NIL 

68+ 

NIL 


NIL 

68+ 

NIL 

68+ 

NIL 
6  8 + 

NIL 
68  + 

NIL 

68+ 

NIL 

6  8  +  ( R  E  0  0  1 


us  my  *>Huo^.uum  meriue 

RuleSet  ADS  2Conf  idence 

Last  Edited:  3- Oct- 85  18:13:37  by 

Workspace  Class:  Launchsite; 
Compiler  Options:  ; 

T  e  m  p  o  r  a  r  y  V  a  r  s  :  F'  i  C  0  N  F 1 0  E  N  0  E ; 

Control  Structure:  DOALL; 

***  *•  +•  * 


(*  A0S2C'onf idence  interprets  the  AOS2  sensorconf idence ,  the 
ri  d e c o m p o s e s  A D 3 1  C o n f  i d e n c e  to  a  n u m b e r  ( P 2 S U M )  w h i c h  t h e n 
calls  on  A0S2FeatureSet,  which  returns  the  revised  P2SUM, 
This  rules  set  interprets  the  new  P2SUM  to  a  P2C0NF IDENCE, 
s h  o w s  o u  t  p  u t  a  n d  call s  o n  t  h  e  c o  n f i d  e  n  c e  p  r  o  c  e  s s i n  g ) 


IF  P2SENS0RC0NF  >=  7 
THEN  (SETQ  P2SC0NF  ’HIGH): 

IF  P2SENS0RC0NF  >=  4 
P2SENS0RC0NF  <  7 
THEN  (SETQ  P2SC0NF  ’ MEDUIM) ; 

IF  P2SENS0RC0NF  <  4 
THEN  (SETQ  P2SC0NF  ’LOW); 

THEN  (SETQ  P1C0NF IDENCE  (GETPROP  EVENTMATCH  ' P1C0NFIDENCE) ) 


IF  P1C0NF IDENCE  =  ’ EXTHIGH 
THEN  (SETQ  P2SIJM  5); 

IF  P1C0NF IDENCE  =  ’HIGH 
THEN  (SETQ  P2SUM  4); 

IF  P1C0NF IDENCE  =  'MIXED 
THEN  (SETQ  P2SUM  3); 

IF  P1C0NF IDENCE  =  ’LOW 
THEN  (SETQ  P2SUM  2); 

IF  P1C0NF IDENCE  =  ’EXTLOW 
THEN  (SETQ  P2SUM  1); 

THEN  (RunRS  ' ADS2FeatureSet) ; 

IF  P2SUM  >=  5 

THEN  (PUTPROP  EVENTMATCH  ' P2C0NF IDENCE  ' EXTHIGH); 


."--'.VV.Y. 


IF  P2SUM  =  4 

THEN  (PUTPROP  EVENTMATCH  ‘ P2C0NFIDENCE  'HIGH); 

IF  P2SUM  =  3 

THEN  (PUTPROP  EVENTMATCH  ' P2C0NF I OEHCE  1  MIXED) ; 

IF  P2SUM  =  2 

THEN  (PUTPROP  EVENTMATCH  ' P2C0NF IDENCE  'LOW); 

IF  P2SUM  <=  1 

THEN  (PUTPROP  EVENTMATCH  ' P2C0NF I DENCE  '  EXTLOW); 

THEN  ( R  u  n R  S  '  T r e  n  d C h  e  c k ) 

(PUTPROP  EVENTMATCH  ' P2HYP0  NIL)  (CF) 

(PRINTOUT  T  T  "ADS 2  REPORT  ACKNOWLEDGED"  T  T 

"AOS2  EVENT  has  been  matched  with:  "  EVENTMATCH  T  T 
ENTINEL  DECISION  AID  CONFIDENCE  is:  "  (GETPROP  EVENTMATCH 
P 2 C 0 NFIDENCE)  T  T  " F u r t h e r  p r o c e s s i n q  n o w  u n d e r w a y . . , , "  T 
) 

EXPLA I NBoard : COMMENT* ‘ N I L  EXPLA I NBoard : EXP FACT  * 'NIL; 

(*  The  different  CONFIDENCE  levels  are  mapped  to  their 
s e p a r a t e  w a y s  f o r  p r o c e s s i n g .  ST 0 P  place d  a f ter  e a c h 
a  v  o  i  d  belief  r  e  v  i  s  i  o  n  t  r  i  g  g  e  r  i  n  g  rn  o  r  e  t  h  a  n  o  n  e  .  ) 

IF  ( GETPROP  EVENTMATCH  ' P2C0NFIDENCE)  =  'LOW 
THE  N  ( F;  u  n  R  S  '  L  0  W  C  o  n  f  i  d  e  n  c  e ) 

(STOP); 

IF  (GETPROP  EVENTMATCH  ' P2C0 NFIDENCE)  =  'MIXED 
THEN  ( R  u n  R  S  ' M I X E  D  C o n  fide n  c e ) 

(STOP); 

IF  (GETPROP  EVENTMATCH  '  P2C0NF I DENCE )  =  'HIGH 
THEN  (RunRS  '  HIGHCo.if  idence) 

(STOP); 

IF  (GETPROP  EVENTMATCH  '  P2C0NF IDENCE )  =  'EXTHIGH 
THEN  ( F:  u  n  R  S  '  E  X  THIGH  C  o  n  f  i  d  e  n  c  e ) 

(STOP) ; 

IF  (GETPROP  EVENTMATCH  ' P2C0 NFIDENCE)  =  'EXTLGW 
THEN  ( R u  n R  S  ' E  X  T  L  0 W C o  n  fide  n c  e ) ; 

#&(  Ru  1  eS'etSource  "  GI  US  .  z  I  [  :  . ;  7  :  .  3 "  ) 


NIL 

75* ( REDO  1SS ) 


us  my  o-BuOiir ediur  ec-ec 

FtuleSet  ADS2FeatureSet 

Last  Edited:  3-  O  ct-  65  1 6: 1 3: 43  t>  y 

W o r k S p a c e  C lass:  La u n c h site ,• 

Compiler  Options:  ; 

Temporary  Vans:  P2DIFF  P1IRTVPE  PI  SENS  OF:  F'2  SENS  OR  CAP  P2SE 

NSOR  P2NEGDIFF; 

Control  Structure:  DO ALL: 

:+:  :f  *  *  *  X  + 


(*  This  ruleset  takes  F'iCONF IDENCE ,  P£  IF:  TYPE  and  SENSOR  c 

a p a b i  1  i t y  a n d  r e d u c e s  it  t o  t he  AD S 2 F e a t u r e S e t  w h i c h  i s  F'2 C 

ONF  IDENCE,  F‘2  TYPE,  and  P2SENS0R) 

Turn  nr  t  ~i  r>  a  t  r.  t  ri  r~  $  i — rnn  r>  n  itiit  k<  Tnn  i  r»  a  t  r.  t  »..•  ri  r~  \  \ 

i  nc.i‘4  \  o.q  i  g  rx  i  r.  i  t  rx  i,  uc  i  rr.ur  c  v  c.r<  i  imh  i  on  r  iir.i  r  re }  ) 

(SETQ  P1SENSQR  ( GETPRQP  EVENTMATCH  ' P1SENSQR) ) ; 

(*  sensornurnber  determines  which  satellite  picked  it  up) 

IF  SENSORN UMBER  =  1 S2  THEN  (SETO  P2SENS0RCAP  (GETF'ROP  ’ADSS 
OUTH  'CAPABILITY)); 

IF  SENSOR  NUMBER  =  '  N2  THEN  (SETO  F'2  SENS  OR  CAP  (GETF'ROP  'ADS 
NORTH  'CAPABILITY)); 

(*  P2SENS0R  is  determined  here  in  the  exact  same  manner  PI 
SENSOR  was  found)  IF  P2SENS0RCAP  =  'FULL  F'2  SCON  F  =  'HIGH  TH 
EN  (SETO  P2SENS0R  9); 

IF  P2SENS0RCAP  =  'FULL  F’2  S  CON  F  =  '  MEDUIM  THEN  (SETQ  P2SENS 
OR  8); 

IF  P2SENS0RCAP  =  'PARTIAL  F‘2  SC  ONF  =  'HIGH 
THEN  (SETQ  P2SENS0R  7); 

IF  P2SENS0RCAP  =  'FULL  P2SC0NF  =  'LOW 
THEN  (SETQ  P2SENS0R  6); 

IF  F'2  SENSOR  CAP  =  'PARTIAL  P2SC0NF  =  'MEDUIM 
THEN  (SETQ  P2SENS0F:  5); 

IF  P2SENS0RCAP  =  'ZERO  P2SC0NF  =  'HIGH 
THEN  (SETQ  P2SENS0F:  4); 


IF  P2SENS0RCAP  =  'PARTIAL  P2SC0NF  =  'LOW 
THEN  (SETQ  F'2  SENS  OR  3); 

IF  F'2SE  NSOR  CAP  =  'ZERO  P2SC0NF  =  'MEDIUM 
THEN  (SETO  P2SENS0R  2); 


IF  P2SENS0RCAP  =  'ZERO  P2SC0NF  =  'LOW 
THEN  (3ETQ  P2SENS0R  1); 

(*  Difference  in  confidence  levels  between  P13ENS0R  end  P2S 
EN8QR  checked.  P2NEGDIFF  set  to  number  for  use  with  ops) THE 
N  (SETH  p 2 D IFF  (DIFFERENCE  P2SEN30R  P1SEN30R ) )  (SETQ  P2NEGD 
IFF  0)  ( PUT PROP  EVENTMATCH  ' P23ENS0R  P2SENS0R); 

IF  P2DIFF  <  0  THEN  (SETQ  P2NEGD IFF  (ABS  P2DIFF) )  ; 

IF  P2DIFF  >=  1  P2DIFF  <=  2 
THEN  (SETQ  P2SUM  (PLUS  P2SUM  1 ) ) ; 

IF  P2DIFF  >=  3  THEN  (SETQ  P2SUM  (PLUS  P2SUM  2)); 

IF  P2NEGDIFF  >=  1  P2NEGDIFF  <=  2  THEN  (SETQ  P2SUM  (SUB1  P 
2 SUM) ) ; 


IF  P2NEGDIFF  >=  3 

THEN  (SETQ  P2SUM  (PLUS  P2SUM  -2)); 

(*  The  IR  readings  for  pass  1  and  pass  2  are  compared,  the 
V  fall  into  categories  of  MATCH,  NOMATCH  or  MISMATCH)  IF  PI 
‘IRTYPE  =  '  TYPE1  P2 IRTYPE  =  '  U  THEN  (SETQ  P2SUM  (SU&l  P2SUM) 
)  (PUT PROP  EVENTMATCH  ' P2TYPE  'MISMATCH); 


IF  PI IRTYPE  =  'TYPE!  P2 IRTYPE  =  'I 
2 SUM) )  (PUTPROP  EVENTMATCH  ' P2TYPE 


THEN  (SETQ  P 
' MISMATCH); 


UM  (SUB1  P 


IF  Pi IRTYPE  =  ' TYPE2  P2 IRTYPE  =  'U 
P 2 S U M ) )  ( P U T P R 0 P  E V ENTMATCH  ' P 2 T Y P E 


THEN  (SETO  P2SUM 
'MISMATCH); 


( SUB1 


IF  PI IRTYPE  =  ' TYPE2  P2 IRTYPE 
2 SUM ) )  (PUTPROP  EVENTMATCH  'P 


=  'I  THEN  (SETQ  P2SUM 
TYPE  'MISMATCH); 


( SU&l  F' 


IF  PI IRTYPE  =  'INDISTINCT  P2 IRTYPE 
LUS  P2SUM  1))  (PUTPROP  EVENTMATCH  ' 

IF  PI IRTYPE  =  'UNKNOWN  P2 IRTYPE  =  ’ 
P2SUM  1))  (PUTPROP  EVENTMATCH  ' P2T 

IF  Pi IRTYPE  =  'INDISTINCT  P2 IRTYPE 
(PLUS  P2SUM  1))  (PUTPROP  EVENTMATCH 


=  '1  THEN  (SETQ  P 2 S 
P2TYPE  ' NOMATCH) ; 

2  THEN  (SETO  P2SUM 
YPE  ' NOMATCH); 

=  '2  THEN  (SETQ  P 

' P2TYPE  ' NOMATCH); 


UM  (P 
(PLUS 


IF  Pi IRTYPE 
S  P2SUM  i)) 


=  'UNKNOWN  P2 IRTYPE  =  '1  THEN  (SETQ  P2SUM 
( P IJ  T  P  R  0  P  E  V  E  N  T  M  A  T  C  H  '  P  2  T  Y  P  E  '  N  0  M  A  T  C  H ) ; 


(PLU 


IF  PI IRTYPE  =  ' TYPE1  P2 IRTYPE 
H  ' P2TYPE  'NOMATCH),- 


THEN  (PUTPROP  EVENT MATO 


RO-RlfT  927  RN  EXPERT  SYSTEM  DECISION  RID  FOR  R  COHHRNO  CONTROL  RND 
COHMUNICRTIONS  OPERRTOR(U)  RIR  FORCE  INST  OF  TECH 
HRI QHT -PRTTERSON  RFB  OH  SCHOOL  OF  EN6I. .  D  L  TOBRT 
UNCLASSIFIED  DEC  83  RFIT/QE/EHG/83D-38  F/G  17/2 


MICROCOPY  RESOLUTION  TEST  CHART 

NAT'pNAl  RllRFAl)  OF  ANPARn^  ]QM  A 


lr  HllKlYHt  =  IYPt'1  HllKlYHt  =  ’  Z  I  ntN  ^  HU  I  KKUr  C.VLN  I  Iflrt  I  U 

H  ' P2TYPE  *  NOMATCH), • 

IF  P1IRTVPE  =  '  TYPE'2  P2IRTYPE  =  ‘1  THEN  (PUTPROP  EVENTMATCH 
* P2TYPE  ‘ NOMATCH); 

THEN  (SETQ  P1LS  (GETPROP  EVENTMATCH  ’P1LS)); 

(*  Retrieve  the  launchsite  above,  see  if  new  IRTYPE  matches 
the  reported  TVpe  of  the  launchsite)  IF  P2IRTYPE  =  (GLC  (9 
ETPROP  P1LS  ‘TYPE))  THEN  (SETQ  P2SUM  (PLUS  P2SIJM  1)); 

IF  (GETPROP  EVENTMATCH  ' P2TYPE )  =  ‘NIL  THEN  (PUTPROP  EVENT 
MATCH  ' P2TYPE  'MATCH); 

#&( Ru  1  eSetSource  " 91 IJ0  .  zl  4" ) 

87* 

NIL 

87* 

NIL 


NIL 

87* 

MU. 
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(ADS2HANDLER 

[LAMBDA  (ADS2REP0RT)  (*  edited;  "is-sep-es  13:36") 

(PROG  (MATCHLIST  MATCHPOINT  MATCHTIME  TIMED  IFF 

OLDTIMEDIFF  LATLNCH  P1LS) 


(*  This  function  first  decomposes  the  AD 3 2  Report  into  its  constituen 
t  parts  and  then  attempts  to  match  the  record  of  all  existing  AD  Si  Reports  located 
in  EVENT  LIST  with  the  ADS  2  Repom 


(SETQ  MSG  AD82REP0RT ) 

(SETQ  P2TIME  (CAAOR  MSG)) 

(SETO  P2SENS0RC0NF  ( CADDR  MSG)) 

(SETQ  P2IRTYPE  (CADAR  (COADAR  MSG))) 

(SETQ  P2HEA0ING  (CADDR  (CADAR  MSG))) 

( SETO  P2BSS  (CAODAR  MSG)) 

(printout  T  "This  is  P2TIME:  "  P2TIME  T 
"This  is  P2SENS0RC0NF:  " 

P2SEN8GRCQNF  T  "This  is  P2HEADING :  " 
P2HEADING  T  "This  is  P2BS3:  "  P2BSS  T 
"This  is  P2IRTYPE :  " 

P2IRTYPE  T) 

The  matching  part  begins  here1,  a  time  difference  of  more  than  ; 
minutes  (500)  is  held  to  t>e  excessive  in  the  missile  warning  scenario) 


(SETQ  MATCHLIST  EVENTLIST) 

(SETQ  OLDTIMEDIFF  580) 

(SETQ  EVENT MATCH  NIL) 

LOOP (SETO  MATCHPOINT  (CAR  MATCHLIST)) 

( COND 

( (NULL  MATCHPOINT) 

(RETURN)) ) 

(SETO  MATCHTIME  ( GET PROP  MATCHPOINT 

(QUOTE  PIT  I ME ) ) ) 


((NULL  MATCHTIME  ) 

(SETQ  TIMED  IFF  581)  ) 

(T  (SEfQ  TIMED  IFF  (ABS  (DIFFERENCE  PRESENTIME 

MATCHTIME] 

(+•  The  closest  match  in  terms  of  how  close  it  is  in  time  is  stored  as 
OLDTIMEDIFF;  if  a  better  one  comes  along,  EVENTMATCH  is  updated  accordingly) 


(SETQ  P1LS  (GETPROP  MATCHPOINT  (QUOTE  P1LS))) 
(SETQ  LATLNCH  (GETPROP  P1LS  (QUOTE  LAT))) 


(*  This  launch  latitude  reported  by  the  satellite  is  checked  to  see  if  t 
hat  latitude  is  normally  covered  by  the  satellite.  If  there  is  a  problem  matching  the 
two,  no  match  is  made.  Also,  S E NS u R CAP  and  REASGMOUT  are  set  from  the  repo 
rting  satellite  for  inclusion  oh  the  SYS  Board.) 


[  00  NO 

( (LESSP  TIMED  IFF  OLDTIMEOIFF ) 

[COND 

( ( E  Q  ( G  N  C  S  E  N  S  0  R  N  U  M  B  E  R ) 

(QUOTE  S)) 

(COND 

((GREATERP  LATLNCH  27.6) 

(SETO  OLDTIMEOIFF  TIMED  IFF) 

(SETO  EVENTMATCH  MATCHPO I  NT  ) 

(SET  0  S E  N S 0 R  C A  P  ( G E  T  P  R 0 P 
(QUOTE  ADS SOUTH) 

(QUOTE  CAPABILITY))) 

( S  E  T  0  REA  S 0 N 0 U  T  ( G E  T  P  R 0 P 
(QUOTE  ADS SOUTH) 

(QUOTE  REASON] 

( COND 

( ( E  Q  ( G  N  C  S  E  N  S  0  R  N  U  M  B  E  R ) 

(QUOTE  N ) ) 

(COND 

((LESSP  LATLNCH  (QUOTE  29.6)) 

(SETO  OLDTIMEOIFF  TIMED  IFF) 

(SETQ  EVENTMATCH  MATCHPO I  NT  ) 

( S  E  T  Q  S  E  N  S  0  F,  C  A  P  (  G  E  T  P  R  0  P 
(QUOTE  ADS NORTH) 

(QUOTE  CAPABILITY))) 

(SETQ  REASONQUT  (GETPRQP 
(QUOTE  ADS NORTH) 

(QUOTE  REASON] 

(SETQ  MATCHLIST  (COR  MATCHL I  ST  ) ) 

(GO  LOOP)) 

(*  if  no  match  is  found,  EVENTMATCH  will  be  NIL  and  situation  can 
not  progress  any  further  because  of  lack  of  launch  latitude  and  launch  longitude  in 
formation,  SENTINEL  announces  this  information  to  the  user  and  lets  him  take  over 
,) 


(COND 

( (NULL  EVENTMATCH) 

(CF) 

( printout  T  T  T 

"NO  ADS1  EVENT  MATCHES  THIS  AD 3 2  REPORT" 
T  "SPURIOUS  ADS 2  REPORT  SUSPECTED"  T 
"SENTINEL  DECISION  AID  CANNOT  PROCESS  THIS  REPORT" 


(printout  T  T  T 

"NO  ADS1  EVENT  MATCHES  THIS  ADS2  REPORT" 

T  "SPURIOUS  A0S2  REPORT  SUSPECTED"  T 
"SENTINEL  DECISION  AID  CANNOT  PROCESS  THIS  REPORT" 

•T  T 

"Now  running  a  check  on  all  past  events  ..." 

T) 

(EVENTCHECKV) 

(T 

i+  if  a  match  is  made  Detween  an  AD  SI  EVENT  property  list  and  the 
AOS  2  REPORT,  the  EVENT  property  list  is  marked  by  deleting  Pi  TIME  and  p  re  par 
ations  are  made  for  Confidence  processing  and  running  the  A0S2  Confidence  rules 
et) 


( R E  M  P  R  0 P  E  V E  N THAT C H  ( 0  U GTE  P 1 T I M  E ) ) 

( P  l  J  T  P  R  0  P  E  V  E  N  T  M  A  T  C  H  ( 0  U  0  T  E  P  2  T I M  E ) 

P2TIME) 

(PIJTPROP  EVENTMATCH  (QUOTE  P2HEA0IN6) 
P2HEADING) 

C P u t V a  1 u e  MAT C H 6 o a r d  ( 0 U 0 T E  LA U N C H S I T E ) 

(GET PROP  EVENTMATCH  (QUOTE  F'lLS))) 
(Put  Value  hi  AT  OH  Board  (QUOTE  P2LS) 

( G  E  T  P  R  0  P  E  V  E  N  T  M  A  T  C  H  ( 0  U  0  T  E  P 1 L  S ) ) ) 
(Put Value  MATCHBoard  (QUOTE  RPfSENSORCAP) 
SENSORCAP) 

(  P  u  t  V  a  1  u  e  M  A  T  C  H  B  o  a  r  d  (  0  U  0  T  E  0  U  T  A  G  E  R  E  A  S  0  N  ) 

RE A SON OUT) 

( P  u  t  V  a  1  u  e  MAT  0  H  B  o  a  r  d  ( 0 IJ  DTE  L  S  H  E  A  D I N  G ) 
P2HEADING) 

( P u t V  a  1 u e  MAT  C H  B o  a r  d  ( 0  U GTE  L  S B S S ) 

P2BSS) 

( R  u  n  R  S  ( Q  U  0  T  E  S  e  n  s  o  r  C  h  e  c  k  ) ) 

( R  u  n  R  S  (  U  U  0  T  E  0  e  t  e  c  t  U  h  e  c  k  ) ) 

( R  u  n  R  S  ( 0  IJ  0  T  E  A  0  S  2  C  o  n  f  i  d  e  n  c  e  ] ) 

(ADS2HANDLER) 

73  e 
NIL 
/  y  +r 
NIL 

/  ij 

NIL 

,  '  i  j  *- 

NIL 


i  |~i 

NIL 

73^ (R tDO  i) 


my  toudi'inut  my 

RuleSet  BoardVoting 

Last  Edited;  3-Oct-S5  1 3; 30; 33  by 

W o r  k  S  p a  c e  C 1  a  s s :  Boar  d s ; 
Compiler  Options:  ; 
Temporary  Vans:  ; 

Control  Structure:  DOALL; 
* + * * * * + * 


( *  B o a r d V  o  t i n  g  c  h e  c  k  s  e  v  e  r y  B  o a r  d ' s  E  X P  N U M  B E  R .  W h  e  n  the  E  X 
P NUMBER  =  3  or  4,  HIGH VOTE  incremented  by  1.  LOW VOTE  increm 
ented  when  EXPNUMBER  =  1  or  2.  SVSBoard  and  Intel  Board  are 
special  cases  since  they  could  be  empty=  @.) 

THEN  (SETQ  LOW VOTE  0) 

(SETQ  HIGH VOTE  O ) : 

(*  No  news  is  not  necessarily  good  news,  an  empty  Intel-  B 
o a r  d  y  i  e  1  d s  n o  i n f  o r  rn a t  i o n ,  s o  v o t e  rn a y  be  off  b v  o n e  . ) 

IF  I n t e 1 6 o a r d : E X P N U M B E R  =  W 

THEN  (SETQ  LOW VOTE  (SUB1  LOW VOTE) ) ; 

IF  Intel  Board: EXPNUMBER  <=  2 
THEN  (SETQ  LOW VOTE  (PLUS  LOW VOTE  l))j 

IF  I  rite  lBoard  :  EXPNUMBER  >  £ 

THEN  (SETQ  HIGH VOTE  (PLUS  HIGHVOTE  1 ) ) ; 

( +  W i t h  3 V S B o a r d ,  S i 1 e n ce  is  held  t o  b e  p a s s i v e  e v idence  of 
a  w  ell  f  u  n  c  t  i  o  n  i  n  g  s  y  s  t  e  rn  e  s  p  e  c  i  a  11  y  w  h  e  n  w  e  r  e  c  e  i  v  e  d  o  u  r 
satellite  re p o r t s .  0  is  a  H I G H V 0 T E  a n d  effe c t s  o f g e n e r a  1  r u 
1  e  c  o  u  n  t  e  r  a  c  t  e  d  .  ) 

IF  SVSBoard : EXPNUMBER  =  0 

THEN  (SETQ  LOWVOTE  (SUB1  LOWVOTE)) 

(SETQ  HIGHVOTE  (PLUS  HIGHVOTE  1)); 

IF  SVSBoard: EXPNUMBER  <=  2 

THEN  (SETQ  LOWVOTE  (PLUS  LOWVOTE  1 ) )  ; 

IF  SVSBoard: EXPNUMBER  >  2 

THEN  (SETQ  HIGHVOTE  (PLUS  HIGHVOTE  1)); 

IF  TRENOBoard: EXPNUMBER  <=  2 

THEN  (SETQ  LOWVOTE  (PLUS  LOWVOTE  1)); 

IF  TRENOBoard: EXPNUMBER  >  2 

THE H  ( S E T 0  HI G H V 0 T E  ( P L U S  HIGH V GTE  1 )  ) ; 


intN  l  oL  I  IJ  LUVi'VU  I  t  I,  KLUO  LUWVU  I  t  1 )  )  ; 


IF  TRENDBoar  d : EXPNUMBER  >  2 

THEN  (SETQ  HI6HV0TE  (PLUS  HIGHVOTE  1)) 

IF  DetectBoard : EXPNUMBER  <=  2 

THEN  (SETQ  LOW VOTE  (PLUS  LOWVOTE  1)); 


IF  DetectBoard: EXPNUMBER  >  2 

THEN  (SETQ  HIGHVOTE  (PLUS  HIGHVOTE  1)) 

IF  MATCHBoard : EXPNUMBER  <=  2 

THEN  (SETQ  LOWVOTE  (PLUS  LOWVOTE  1 ) ) ; 

IF  MATCHBoard: EXPNUMBER  >  2 

THEN  (SETQ  HIGHVOTE  (PLUS  HIGHVOTE  1)) 

#&( Ru 1 eSetSource  " GtUQ .  z  I  [  : . n59 ,70") 

y  3 

NIL 


NIL 
8 .“!  ** 
NIL 


NIL 
8  8  * 
NIL 

O  .“! 

NIL 

a  a  <• 

NIL 


NIL 
8  3 
NIL 


N I L 


NIL 

O 

NIL 
8  3  *■ 
NIL 


» i  r  i 

i'4  l  L 

8  3  ( R  E  D  u  1 ) 


195 


(BSSGALL 

[LAMBDA  (LAUNCHSITE) 


<*  AMRL  "  5- Jun-85  1  4; 08") 


(-+•  BSSCALL;  This  function  takes  BSSLI3T  and  the  RANGE  informati 
on  of  each  BSS  site,  to  compute  a  Heading  for  the  north,  south,  EAST  and  WE 
ST  detection  points  from  a  launch  site  to  each  BSS  site,) 

(*  INPUTS;  6 S S CALL  uses  LAUN 
CHSITE  and  BSSLIST'!  (*  OUTPUTS;  HEAD  LI  ST  provide  to  S 

CHEDULEFi.  BSS  CALL  also  calls  on  POLAR  with  LNCHCOORD) 

(*  NOTE;  The  HEAD Ll ST  stores  only  two  values  the  WAXPT  which  is 
the  greatest  angle  that  can  be  detected  from  that"  BSS  site  to  the  launchsite  and  t 
he  minpt  which  is  the  smallest  angle  that  can  be  detected.) 


(PROG  (X  V  BSS LONG  B SSL AT  BSS RANGE  DETECTLIST  EACHLIST 
BSSPO I  NT  NORTHLAT  SOUTHLAT  NORTHEAD  SOUTHEAD 
EA3TL0NG  WE  ST  LONG;  EAST  HE  AD) 

(+  Set  up  the  list  and  get  Launch 

site  info  from  the  property  list'i 

( S E  T  0  D  E T  E C T  LIST  B3 S LIST ) 

(SETO  X  (GET PROP  LAUNCHSITE  (QUOTE  LAT) ) ) 

(SETQ  V  (GET PROP  LAUNCHSITE  (QUOTE  LONG))) 

(SETO  LNCHCOORD  (LIST  X  Y)) 

[SETQ  HEADLIST 

(LIST  (CONS  LAUNCHSITE  (LIST  (QUOTE  MAXPT) 

(QUOTE  MINPT] 

(+  For  each  BSS  site  on  the  BSS 
LIST;,  compute  the  heading  information  to  each  detection  point,  Assume  circular  c 
overage  pattern’! 

LOOP (CO NO 

((NULL  (CAR  DETECTLIST)) 

(RETURN))) 

(SETO  BSSPO I  NT  (CAR  DETECTLIST)) 

(SETQ  B SSL AT  (GET PROP  BSSPO I NT  (OUOTE  LAT))) 

( S  E  T  0  B  S  S  L  0  N  G  ( G  E  T  P  R  0  P  B  S  S  P  0 1 N  T  ( Q IJ  0  T  E  L  0  N  G ) ) ) 
(SETO  BSSRANGE  ( FOUOT I  ENT  (GETPROP  BSSPO I  NT 

(QUOTE  RANGE)) 
(QUOTE  111))) 

(SETQ  NORTHLAT  (DIFFERENCE  BSS LAT  BSSRANGE)) 
(POLAR  (LIST  NORTHLAT  BSSLONG ) 

LNCHCOORD) 

i 3 E T Q  N 0 RTHEAD  H E A D I N G ) 

(SETQ  SOUTHLAT  (PLUS  B SSL AT  BSSRANGE)) 

(POLAR  (LIST  SOUTHLAT  BSSLONG) 

LNCHCOORD ) 

( S  ETQ  S 0 U T  H  E  A  D  H  E  A  0 1 N G ) 

( S ETQ  E A S T L 0 N G  (DIFFERE N 0 E  B S S L 0 N G  B S S R A N G E ) ) 
(POLAR  (LIST  B S SLAT  EaSTLONG) 

LNCHCOORD  i 


L  u_  i  y  iiLnuuiv  i 

(LIST  (CONS  LAUNCHSITE  (LIST  (QUOTE  MAXPT) 

(QUOTE  MINPT ] 

(■¥  For  each  ESS  sit*  on  the  BS$ 
LIST;  compute  the  heading  information  to  each  detection  point.  Assume  circular  c 
overage  pattern) 

LOOP ( COND 

((NULL  (CAR  DETECTLIST) ) 

(RETURN))) 

(SETO  BSSF'O I  NT  (CAR  DETECTLIST)) 

( SET 6  BSSLAT  (GETPROP  BSSPOINT  (QUOTE  LAT))) 

(SETO  BSSLONG  (GETPROP  BSSPOINT  (QUOTE  LONG))) 
(SETQ  BSSRANGE  (FQUOTIENT  (GETPROP  BSSPOINT 

(  Q  U  0  T  E  R  A  N  G  E  ) ) 
(QUOTE  111))) 

(SETO  NORTHLAT  (DIFFERENCE  BSSLAT  BSSRANGE)) 
(POLAR  (LIST  NORTHLAT  BSSLONG) 

LNCHCOORO ) 

(SETO  NORTHEAD  HEADING) 

(SET  0  S  0  LI  T  H  L  A  T  (  P  L  U  S  B  S  S  L  A  T  B  S  S  R  A  N  G  E ) ) 

(POLAR  (LIST  SOUTHLAT  BSSLONG) 

LNCHCOORO) 

( S  E  T  0  S  0  U  T  H  E  A  D  H  E  A  D I N  G ) 

( S ETQ  E A S T L 0 N G  (DIFFE R E N C E  B S S L 0 N G  B S S R A N G E ) ) 
ik  P  U  L  A  R  (LI  S  T  B  S  S  L  A  T  E  A  S  T  L  U  N  G  ,* 

LNCHCOORO) 

(SETO  EASTHEAD  HEADING) 

( S E T 0  W EST L 0 N G  ( P L U S  B S S L 0 N G  B S S R A N 6 E ) ) 

(POLAR  (LIST  BSSLAT  WEST LONG) 

LNCHCOORO)  <+  Now  we  will  take  the  min  and 

max  headings  of  the  four  georgraphic  points  we  have  computed,) 

(SETQ  MAXPT  "(FIX  (FMAX  NORTHEAD  SOU THE AD 

EASTHEAD  HEADING))) 

(SETO  MINPT  (FIX  (FMIN  NORTHEAD  S OUT HE AD 

EASTHEAD  HEADING))) 

(SETO  EACHLIST  (LIST  BSSPOINT  MAXPT  MINPT)) 
(DOCOLLECT  EACHLIST  HEADLIST) 

(SETQ  DETECTLIST  (CDF:  DETECTLIST)) 

(60  LOOP)) 

(PUT PROP  LAUNCHSITE  (QUOTE  BSSTAG) 

HEADLIST] ) 

(BSSCALL) 


GO*-  •’  REDO  1  i 


rr  i 

mJtL*  .* 


( BSSE  VENT  CHECK 

[LAMBDA  (MESSAGE)  (*  edited;  "  8-Oct-S5  14:50") 

(PROG  (MATCHLIST  MATCHPOINT  MATCHTIME  TIMED  IFF 

OLDTIMEDIFF  READ  HEAD INGD IFF 
0  L  D  H  E  A  D  D I F  F  0  L  D  H  E  A  D I N  G  ) 


(+•  BSSE  VENT  CHECK;  if  the  fi  rst  attempt  at  matching  a  BSS  event  fai 
Is,  BSSEVEMTCHECK  makes  a  Pest  guess  and  informs  the  user,  The  user  may  sele 
ct  the  oe st  guess  or  any  remaining  EVENT  that  has  gone  through  the  ADS- 2  stage 
of  processing.  Special  case  when  P2HEA.DINGS  =  (QUOTE  XXX,)  we  can  only  use  t 
irne  and  the  ess  TAG  of  the  launcher  to  verify  BSS  detection.) 


(SETO  SENSOR  (MKATOM  (COHO AT  (QUOTE  TGTQ) 

P3SITENIJM))) 

(SETO  EVENTMATCH  NIL) 


(+:  Best  guess  effort  is  the  EVENT  that  results  in  combined  smallest  d 
ifference  between  HEADING  and  TIME,  found  in  the  EVENTLIST,  and  the  HEADING 
and  TIME  contained  in  the  BSS  messsage.) 


(PROG  ( BSSTEST  MAXF'T  MI  HPT  MARK) 

( SETQ  MATCHLIST  EVENTLIST) 

(SETO  OLDTIMEDIFF  500) 

(SETO  OLDHEAOOIFF  70) 

L  0  0  P  ( S  E  T  0  M  A  T  C  H  P  0  I N  T  ( 0  A  R  M  A  T  0  H  L I S  T  ) ) 

(SETQ  MARK  (QUOTE  NIL)) 

( COND 

( ( NULL  MATCHPOINT) 

(RETURN) ) ) 

( S E T Q  M ATCHTIME  ( G E T P R 0 P  M ATCH P 0 1 N T 

(QUOTE  P2TIME) ) ) 

[COND 

( (NULL  MATCH! I  ME) 

(SETQ  TIMED  IFF  501)) 

(T  (SETQ  TIMED  IFF 

(ABS  (DIFFERENCE  PRESENTIME 

MATCHTIME] 

( S E  T  Q  0  L  D  H  E  A  D I N G  ( G E  T  P  R 0  P  M  ATCH  P  0 1 N  T 

(QUOTE  P SHEADING) 

i  ) 

[COND 

(  (  E 0 P  0LDHEADIN6  ( QUOTE  XXX)  ) 

’  ( SETO  OLDHEAD I NG  ' ( QUOTE  NIL] 

[COND 

( (NULL  OLDHEAD I NG) 

(SETQ  HEAD INGD IFF  71) 

(SETO  OLDHEAD I NG  Q>) 

( T  (SETO  HEAD INGD  IFF 


<  SET 0  OLDHEADING  0 )  ) 

(T  f SET O  HEADINGDIFF 

(ABS  (DIFFERENCE  P3HEADING 

OLDHEADING] 

t  *  The  following  insures  that  the  HEADING*  we  are  matc  hing  does  fal 
I  in  the  range  of  detection  BSSTAG;  of  the  launchsite,  Therefore,  if  EVENT 1  from  L 
se  has  a  heading  of  230  then  it  can  be  detected  by  B5S5  ONLY  if  230  lies  be  twee 
n  MAX  and  min  angles  of  coverage.  +  and  -.3  added  to  MAXPT  and  MINPT  to  ins 
tire  that  HEADINGS  that  are  equal  to  MAXPT  or  MINPT  will  not  be  disqualifies,) 


[SETQ  BSSTEST 
(ASSOC  SENSOR 

( 9  E  T  P  R  0  P  ( G  E  T  P  R  0  P  M  A  T  C  H  P  0 1 N  T 

f QUOTE  P1LS)) 
(QUOTE  BSSTAG] 

(SETO  MAXPT  (CAD F:  BSSTEST)) 

(SETQ  MINPT  (CAODR  BSSTEST)) 

[  COND 

((AND  (LESSP  P3HEADING  (PLUS  MAXPT  .5)) 
(GREATERP  P3HEADING 

(PLUS  MINPT  -.5))) 

(SETQ  MARK  (QUOTE  T] 

(*  This  is  the  Key  condition  for  best  guess;  BSS  coverage  must  be  a 
bie  to  detect  this  event  ,  ma.rk  =  t  and  then  a  combination  of  heading  and  TIME 
differences,  Note  that  if  one  of  the  EVENTS  matches  either  the  TIME  or  HEADING, 
then  that  will  be  the  best  guess.) 


[  COND 

( (EQP  MARK  (QUOTE  T ) ) 

( C  0  N  D 

((LESSP  HEADINGDIFF  OLDHEADDIFF) 

(COND 

((LESSP  TIMEDIFF  OLDTIMEDIFF ) 

( S E  T  0  E  V E  N  T  M  A  7 C  H  MAT  C H  P  0 1 N  T  ) 
(SETQ  OLDHEADIFF  HEADINGDIFF) 
(SETQ  OLDTIMEDIFF  TIMEDIFF] 
(SETQ  MATCHLIST  (CDF:  MATCHLIST)) 

(GO  LOOP)) 

(+  Having  found  a  best  match,  the  following  permits  the  user  to  seleo 
t  the  best  match  first  by  offering  him  the  SENTINEL  solution  than  permitting  him  to 
pick  his  own.) 


[  COND 

(  (  N  0  T  (  N  U  L  L  E  V  E  N  T  M  A  T  C  H )  ) 

(printout  T  "Best  Attempt  at  MATCH  is:  " 

EVENT MATCH  T  T  "EVENT  HEADING;  " 


*.  'V 


V# 


I 


1  NU  I  I,  NULL  t  VLN  I  m«  1  un  )  ) 

(printout  T  "Best  Attempt  at  MATCH  is:  " 

EVENTMATCH  T  T  "EVENT  HEADING :  " 

( G  E  T  P  R  0  P  E  V  E  H  T  M  A  T  C  H  ( 0  U  0  T  E 

P2HEADING) ) 

T  "Reported  BSS  HEADING:  " 

P3HEADING  T 

"  E  x  p  e  c  t  e  d  B  S  S  M  S  6  a  r  r  i  v  a  1  t  i  m  e  :  ’’ 

(GETPROP  EVENTMATCH  (QUOTE  P2TIME) ) 
T  "ACTUAL  BSS  MSG  arrival  time:  " 
P3TIME  T  T  T 


"If  you  concur  with  this  event  being  matched  type  T  in  resp 
o  n  s e ,  o  t h  e  r  w i s e  t v  p  e  NIL." 

T) 

fSETO  READ  (RATOM  NIL  NIL)) 

(COND 

( (EQP  READ  (QUOTE  T) ) 

(RETURN  (printout  T 

" B 1  a c k b o a  r  d s  a  r  e  b e i n g  filled, 

T ) 

(REMPROP  EVENTMATCH 

( QUOTE  P2TIME) ) 

(SETO  OLOHEADING 
(GETPROP  EVENTMATCH 

(QUOTE  P2HEADING) ) ) 
(PUT PROP  EVENTMATCH 

(QUOTE  P2HEADING) 

P3 HEADING) 

( P u  t  V  a  1 u e  MATCH B  o a r  d 

(QUOTE  OUT ACER EASON) 
(GETPROP  SENSOR 

(QUOTE  REASON) 

) ) 

( P  u  t  V a  1 u  e  MAT  C  H  B o a r  d 

(QUOTE  RPTSENSDRCAP ) 
(GETPROP  SENSOR 
(QUOTE 

CAPABILITY) ) ) 

( P u  t  V a  1 u  e  MAT  C H  B  o a  r d 

( QUOTE  P2LS) 

(GETPROP  EVENTMATCH 


( Q IJ  0  T  E  P1L  S ) ) ) 
( P  u  t  V  a  1  u  e  M  A  T  C  H  B  o  a  r  d 

(QUOTE  LS HEADING) 
(GETPROP  EVENTMATCH 
(QUOTE 


P2HEADING) ) ) 


( R  u  ri  R  S  ( Q  IJ  0  T  E  S  e  n  s  o  r  C  h  e  c  k )  ) 

( R u n R S  ( Q U 0 T E  Dete c t C h e c k ) ) 

( R  u  n  R  S  ( 0  U  0  T  E  B  S  S  T  r  e  n  d  C  h  e  c  k  )  ) 


BIB 


(PUT PROP  EVENTMATCH 

(QUOTE  P2HEAD I NG ) 
GLDHEADING] 

(+  IF  all  else  fails,  ESSE  VENT  CHECK  goes  down  the  list  of  EVENTS 
one  by  one  and  shows  them  to  the  user  and  asks  if  lie  wishes  to  matoh  them,  Only 
EVENTS  that  are  off  limits  are  those  which  do  not  have  a  Pi  time  and  thus  have 
been  through  AOS -2  Processing.) 


(PROG  (READ  MARK  BSSTEST  MAXF'T  MINPT) 

(printout  T  T 

"  B  S  S  E  V E  N  T  CHE C K  w ill  c  h  e c  k  t h r o  u  g h  all  a  p p r  o  p r i a t  e  e  v e n t s 
to  match  BSS  REPORT." 

T) 

( SET  0  M A  T  C  H  L  I S T  E  V  E N  T  L I S T  ) 

LOOP (SE TO  MARK  (QUOTE  T)) 

[COND 

(  (  H 1JLL  ( C  > .  R  M  A  T  C  H  L I S  T  )  ) 

(RETURN  (printout  T 

"EVENT  LIST  EXHAUSTED," 

T] 

( S E T Q  M A T C H P 0 1 N T  ( C A R  M ATCHLIST ) ) 

( COND 

([NOT  (NULL  (GETPROP  MATCHPO I  NT 

( 0  U  0  T  E  P 1 T I M  E  ] 

(SET Q  MATCHLIST  (CDR  MATCHLIST) ) 

(GO  LOOP))) 

(*■  Above  COND  eliminates  those  EVENTS  which  have  only  been  mat 
died  to  an  A.DS-1  Report  if  hence  Pi  TIME  still  has  a  value).  Next  COND  eliminates 
those  EVENTS  which  have  already  been  matched  to  an  BSS  report,  for  those  repot 
ts  have  no  P2TIME  i 

(COND 

((NULL  (GET PROP  MATCHPO I  NT  (QUOTE  P2TIME) 

) ) 

(SETQ  MATCHLIST  (COR  MATCHLIST)) 

(GO  LOOP))) 

[SETQ  BSSTEST  ' 

( ASSOC  SENSOR 

I  G  E  T  P  R  0  P  (  G  E  T  P  R  0  P  M  A  T  C  H  P  0 1 N  T 

(QUOTE  P'lLS ) ) 
(QUOTE  BSS TAG ] 

( S  E  T  Q  M  A  X  P  T  ( C  A  0  R  6  S  S  T  E  S  T  ) ) 

(SETQ  MINPT  (CADDR  BSSTEST)) 

(printout  T  "ATTEMPT  to  MATCH:  " 

MATCHPO I  NT  T  T 

" T Li i s  B 2 S  s i t e  c a n  d e t e c t  rn i s s lies  at.  t h e s e  H E A 0 1 N u S " 


"Expected  BSS  MSG  arrival  time:  “ 

(GET PROP  MATCHPOINT 

(QUOTE  P2TIME) ) 

T 

"ACTUAL  BSS  MSG  arrival  time:  " 
P3TIME  T  T  T 

"  I F  y  o u  w i s h  t  o  m a t  c h  this  e  v  e  n  t ,  t  y  p e  T " 

T 

"Otherwise  type  NIL  to  examine  other  events, " 

T 

"OR  type  STOP  if  you  wish  to  exit." 

T  )  0*  The  following  is  the  user  input. 

NIL  continues  the  LOOP,  T  matches  the  EVENT  and  resumes  processing,  STOP  te 
rmi nates  the  process.) 

' (SETQ  READ  (RATOM  MIL  NIL)) 

(COMO 

( (EQP  READ  ( QUOTE  MIL)  ) 

(SETO  MATCHLIST  (COR  MATCHLIST) ) 

(GO  LOOP))) 

(COMO 

( (EOP  READ  (QUOTE  T)) 

(SETO  EVENT MATCH  MATCHPOINT) 

(REMPROP  EVENTMATCH  (QUOTE  P2TIME) ) 

(printout  T 

" B 1 ackboards  are  be i no  filled." 

T) 

(SETO  OLDHEAD IMG  (GETPROP 
EVENTMATCH 
(QUOTE  P2HEADIMG) ) ) 

( PUT PROP  EVENTMATCH  (QUOTE  P2HEADING) 
P3HEAD I  MG) 

(Put Value  MATCHBoard  (QUOTE 

OUT AGE REASON) 
(GETPROP  SENSOR 

(QUOTE  REASON))) 

( P  u t  V  a  1 u e  MAT C H  B  o a  r  d  ( Q  U  GTE 

RPTSEMSORCAP) 
(GETPROP  SENSOR 

/  r.  i  i t  r  r.  r*.  r.  t  i  t  t  •..»  \  \  V 

V  u u uic  uht  hd i l i  i r  • } } 
( PutVa 1 ue  MATCH board  (QUOTE  P2LS) 
(GETPROP  EVENTMATCH 

(QUOTE  PJLLS) ) ) 

(Put Value  MATCHBoard  (QUOTE  L SHEADING) 
(GETPROP  EVENTMATCH 

(QUOTE  P2HEADING) ) ) 

( R  u  n  R  S  ( Q  U  0  T  E  S  e  n  s  o  r  C  h  e  c  k  ) ) 

( R  u  n i  R  S  ( Q  U  0  T  E  0  e  t  e  c  t  C  h  e  c  k ) ) 

( R  u  n  R  S  ( Q  U  0  T  E  B  S  S  T  r  e  n  d  C  i'i  e  c  k ) ) 

( P  U  T  P  F:  0  P  '  E  V  E  N  T  M  A  T  C  H  ( 0  U  0  T  E  P  £  H  E  A  D I N  G ) 
OLDHEAD I NG 1 ) 


(BSSHANDLER 

[LAMBDA  (MESSAGE)  <+  edited:  "  3-oct-ss  14:30") 

(F'RfiG  (BSSMSG  MATCHLIST  MATCHPOINT  MATCHTIME  TIMED  IFF 
OLDTIMEDIFF  HEADINGDIFF  OLDHEADDIFF 
OLDHEADING  MARK  BSSTEST  MAXPT  MINPT) 


(*  BSSHANDLER  first  decomposes  tne  BSS  message  into  its  constitu 
ent  parts  and  then  matches  the  BSS  message  with  the  appropriate  EVENT  from  the 
EVENTLIST,  Once  matched,  EVENTMATCH  is  the  key  to  further  BSS  processing.  I 
f  not  matched,  EVENT CHECK  is  invoked.) 


(SETO 

(SETQ 


(SETQ 


(SETQ 

(SETQ 

(SETQ 

(SETQ 

(SETQ 

(SETO 


(printout 


B S S M S G  M E S S AG E ) 

P3SITENUM  (CAAADR  (CADAR  BSSMSG))) 
P3TIME  ( CADAAR  ( CDADAR  BSSMSG))) 

P  3  0  B  J  N  U  M  ( C  A  D  A  0  R  ( C  A  D  A  R  B  S  S  M  S  G ) ) ) 

P 3 HEADING  (CADDR  (CADAR  BSSMSG))) 

P3STAB I L I TV  ( CADDAR  BSSMSG ) ) 

P3 1 MPACTTI ME  ('  CAADR  BSSMSG ) ) 
P3SENS0RRATING  (CADDR  BSSMSG)) 

SENSOR  (MKATOM  (CONCAT  (QUOTE  TGTHt) 

P3SITENUM) ) ) 

T  "Detect i na  BSS  SITE:  "  P3SITEMUM  T 
"TIME  of  REPORT:  " 

P3TIME  T 

"  N  u  m  b  e  r  o  f  0  b  .i  e  c  t  s  d  e  t  e  c  t  e  d :  " 
P3GBJNUM  T  "DETECTED  HEADING:  " 
P3HEADING  T  "Trajectory  Stability:  1 
P3STAB I L I  TV  T 
"  Expected  IMPACT  TIME:  " 

P3 I MPACTTI ME  T  "BSS  Site  Confidence 
P3SENS0RRATI NG  T) 


(*  MATCHING  part  is  here;  In  order  to  achieve  a  MATCHED  EVENT  f 
rom  the  EVENTLIST,  the  P SHEADING  must  be  as  close  as  possible  to  the  BSS  det 
ected  HEADING  and  the  report  must  be  within  3  minutes  of  the  estimated  time,  HE 
ading  cannot  vary  more  than  5  degrees,  the  maximum  manuvering  range  of  the  T 
v'PE  li  missile,) 


(SETO  MATCHLIST  EVENTLIST) 

(SETQ  OLDHEADDIFF  6) 

(SETQ  EVENTMATCH  NIL) 

LOO  PI 

(SETO  MATCHPOINT  (CAR  MATCHLIST)) 

( CO  NO 

( (NULL  MATCHPOINT) 

(RETURN))) 

(SETO  OLDHEADING  (GETPROP  MATCHPOINT 

( QUOTE  P2HE A0IN6) ) ) 


vyuuit.  pzntrtuiNbj ) ) 

<*■  Special  case;  where  P2HEADI 

NG  from  EVENTLIST  was  not  discernible.'! 

[COND 

( (EOP  OLDHEAD I NG  (QUOTE  XXX)) 

(SETQ  OLDHEADING  (QUOTE  NIL] 

[  COND 

((NULL  OLDHEAD I NG) 

(SETQ  HEADINGOIFF  7)) 

(T  (SETQ  HEADINGOIFF  (ABS  (DIFFERENCE 

P3HEADIN6 
OLDHEAD I NG] 

(+  The  following  is  where  the  P SHEADING  reported  by  the  BSS  mess 
age  is  compared  to  the  MAXPT  and  MINPT  zones  of  coverage  of  the  BSS  site.  Onl 
V  if  P  SHEADING  would  normally  fall  in  the  zone  of  coverage  of  this  BSS  site,  will  it 
be  considered  for  a  MATCH.  ma.RK  =  t  indicates  compatibility.) 


(SETQ  MARK  (QUOTE  NIL)) 

[SETQ  BSSTEST  (ASSOC  SENSOR 

(GETPROP 

(GETPROP  MATCHPOINT 

(QUOTE  P1LS) ) 
(QUOTE  BSSTAG] 

(SETO  MAXPT  (CADR  BSSTEST)) 

(SETQ  MINPT  ( CADOR  BSSTEST )) 

[  COND 

((AND  (LESSP  P SHEADING  (PLUS  MAXPT  .5)) 

(GREATERP  P3HEADIHG  (PLUS  MINPT  -.5))) 
(SETQ  MARK  (QUOTE  T] 

(SETQ  MAfCHTIME  (GETPROP  MATCHPOINT 

(QUOTE  P2TIME) ) ) 

[COND 

( (NULL  MATCHTIME) 

(SETQ  TIMED  IFF  282)) 

(T  (SETQ  II MED IFF  (ABS  (DIFFERENCE  PRESENTIME 

MATCHTIME] 

(•+  This  is  the  Key  COND  in  the  program,  If  the  BSS  site  covers  this  h 
sad  i  rig  from  the  EVENT  launch  site  MARKET,  and  if  TIME  for  the  BSS  report  does 
not  exceed  2  minutes  SOI  then  the  EVENT  which  meets  all  these  conditions  and 
whose  heading  is  closest  to  P  SHEADING  from  the  E  V  E  NT  LIST  will  be  EVENTMAT 
CH.) 


[  COND 

((EOP  MARK  (QUOTE  T)) 

(COND 

( ( LESSP  HEAD  I NGD IFF  OLDHE ADD  I FF ) 
(COND 

((LESSP  TIMED  IFF  281) 


w 


st  match 


is 


( (LESSP  HEAOINGOIFF  OLDHEADDIFF) 
fCOND 


((LESSP  TIMED  IFF  201) 

(SETQ  EVENTMATCH  MATCHPOINT ) 

(SETQ  OLDHEADIFF  HEAOINGOIFF] 

(SETQ  MATCHLIST  (COR  MATCHLIST)) 

(GO  LOOP1))  (+  RESULTS  are  announced,  if  fir 

unsuccessful  BSSEVENTCHECK  is  called,  The  blackboards  are  filled  a 


gain/i 

(CONO 

((NULL  EVENTMATCH) 

(printout  T  T 

"BSS  Report  not  matched  on  first  attempt  ..." 

T) 

(BSSEVENTCHECK  MESSAGE ) ) 

(T  (printout  T  T  "BSS  Report  Matched  to:  " 

EVENTMATCH  T  T) 

(printout  T  "Blackboards  are  being  filled.  "  T) 
(SETQ  OLDHEADING  (GETPROP  EVENTMATCH 

(QUOTE  P2HEADING) ) ) 
(PUTPROP  EVENTMATCH  (QUOTE  P2HEADING) 

PS HE AGING) 

(REMPROP  EVENTMATCH  (QUOTE  P2TIME) ) 

(Put Value  MATCHBoard  (QUOTE  OUT ACER EASON) 

(GETPROP  SENSOR  (QUOTE  REASON))) 

(Put Value  MATCHBoard  (QUOTE  RPTSENSORCAP) 

(GETPROP  SENSOR  (QUOTE  CAPABILITY))) 

( P  u  t  V a  1 u  e  MAT C H  B  o a  r d  ( 0  U 0  T  E  P  2  L  S ) 

(GETPROP  EVENTMATCH  (QUOTE  P1LS))) 

(Put Value  MATCHBoard  (QUOTE  LSHEADING) 

(GETPROP  EVENTMATCH  (QUOTE  P2HEA0ING) ) ) 
( R  u  n  R  S  ( Q  U  0  T  E  S  e  n  s  o  r  C  h  e  c  k ) ) 

(  R  u  n  R  S  ( Q  U  0  T  E  0  e  t  e  c  t  C  h  e  c  k ) ) 

( R  u  n  R  S  ( Q  U  0  T  E  B  S  S  T  r  e  ri  d  C  h  e  c  k ) ) 

(PUTPROP  'EVENTMATCH  (QUOTE  P2HE AGING) 

OLDHEADING] ) 

(BSSHANDLER) 


97* 

NIL 

97* 

NIL 

97* 

NIL 


97  *■ 


NIL 

97^- 

NIL 


97* 

NIL 

97*  (  F;S D 0  1 0 0  ) 


T 


us  i r m  o o o n u o  i  ill 

RuleSet  BSSHOSTILE 

Last  Edited:  10-Dct-85  17:05:41  by 

Workspace  Class:  Boards; 

Compiler  Options:  ; 

Temporary  Vars:  MARK  READ  OUT  VaR  XVAR  WAR; 

Control  Structure:  DOALL; 

+  :+:  +  +  *  * 


(*  B2SHQ2TILE  processes  the  B22  message  for  those  events  wh 
ich  have  been  identified  as  HOSTILE.  First,  BSSHOSTILE  co 
n s u 1 1 s  B o a r d V o t i n q  t o  date r mine  w h e n  c o n f i d e n c e  1 e v el  rev 
ision  is  appropriate,  and  then  consults  BSSBoard  quite  heav 
ily  to  determine  when  hypothesis  revision  to  other  cases  su 
ch  as  TEST,  UNRESOLVED  or  UNKNOWN  is  in  order,  BSSHOSTILE  t 
hen  fills  out  the  BSS  report  for  the  MWO  and  permits  explan 
at  ion  using  Explain  and  Explains.) 

THEN  ( R  u  n R  3  ' B  o  a r d  V o  t i n g ) ; 

IF  HIGHVOTE  >=  3 

(GETPROP  EVENTMATCH  '  P2 CONFIDENCE)  =  ’EX FLOW 
THEN  (PUTPROP  EVENTMATCH  '  F'SCONF  I DENCE  ’LOW); 

IF  HIGHVOTE  >=  3 

(GETPROP  EVENTMATCH  ' P2 CONFIDE MCE )  =  'LOW 
THEN  (PUTPROP  EVENTMATCH  ' P2C0NF I DENCE  ’HIGH); 

IF  LOW VOTE  >=  3 

(GETPROP  EVENTMATCH  ' PSCONF I DENCE )  =  ’EXTHIGH 
THEN  (PUTPROP  EVENTMATCH  ' PSCONF I DENCE  ’HIGH); 

IF  LOW VOTE  >=  3 

(GETPROP  EVENTMATCH  ’  PSCONF I DENCE)  =  'HIGH 
THEN  (PUTPROP  EVENTMATCH  ' PSCONF I DENCE  ’LOW); 

(*  Hypothesis  revision  takes  place  in  the  following.) 

IF  BSSBoard :EXPN UMBER  <=  2 

(GETPROP  EVENTMATCH  ' PSCONF I DENCE)  =  ’LOW 
HYPOTRANSFER  *  'NIL 
THEN  (SETO  HYPOTRANSFER  ' T ) 

( R  u n R  S  ’BSS U  N  R  E  S 0 L  V E  D )  ( S T 0 P ) ; 

IF  BSSBoard :EXPNUMBER  <=  S 

(GETPROP  EVENTMATCH  ’ PSCONF I DENCE )  =  'EXTLOW 
HYPOTRANSFER  =  'NIL 
THEN  (SETO  HYPOTRANSFER  ’T) 


mtfj  IStlU  MlTKUIKflNSrtK  I  ) 

(RunRS  1 B8SUNRES0LVED)  (STOP); 

IF  HYPOTRANSFER  =  'NIL 
BSSBoard  :  EXPNUMBER  =  1 
THEN  (SETQ  HYPOTRANSFER  *  T) 

(RunRS  ‘  BSSTEST)  (STOP) ; 

( *  Unless  THREAT  is  specifically  disproved,  threat  is  assurn 
ed  to  be  YES  since  hypothesis  is  HOSTILE.) 

THEN  OUT VAR- ' YES; 

IF  BSSBoard : EXP NUMBER  <  2 
THEN  OUT VAR- ' NO; 

(*  The  different  lists  are  combined  for  both  H I GH'v'ALUE  and 
other  targets . ) 

IF  TRENDBoard : WILLNUMBER  >=  1 

THEN  (Put Value  BSSBoard  ’ WILLOETECT  (APPEND  BSSBoard : WILLDE 
TECT  TRENDBoard : W I LLDETECT ) ) ; 

IF  TRENDBoard ; CLOSE NUMBER  >=  i 

THEN  (Put Value  BSSBoard  ' CLOSEDETECT  (APPEND  BSSBoard : CLOSE 
DETECT  TRENDBoard : CLOSEDETECT ) ) ; 

IF  TRENDBoard : FARNUMBER  >=  1 

THEN  ( P  u  t  V  a  1  u  e  B  S'  S  B  o  a  r  d  '  F  A  R  D  E  T  E  G  T  ( A  P  P  E  N  D  B  S  S  B  o  a  r  d  :  F  A  R  D  E  T  E 
CT  TRENDBoard : FARDETECT ) ) ; 


( *  0  u  t  p  u  t  S  e  c  t  i  o  n ) 

THEN  (PRINTOUT  T  T  "EVENT  Considered:  HOSTILE"  T  T  T  "  B 
SS  "  EVENTMATCH  T  T  "1.  DETECTED:  "  P3TIME  T  "2.  BSS:  "  P 
3SITENUM  T  "3,  THREAT:  "  OUTVAR  T  "4.  LAUNCHER  TYPE:  "  MAT 
CHBoard :  LAIJNCHERTYPE  T  "5.  OBJECTS  TRACKED:  "  P3 

OBJNUM  T)  MARK ♦'NIL; 

IF  BSSBoard: WILLOETECT  -=  'NIL 
THEN  MARK*  ’  T 

(PRINTOUT  T  "6.  VERY  LIKELY  TARGETS:  "  (CONVERT  BSSBoa 
rd: WILLOETECT)  T) ; 

IF  MARK  =  'NIL 

B  S  S  B  o  a  r  d  :  C  L  0  S  E  D  E  T  E  C  T  --=  ’NIL 
THEN  MARK-'T 

•  -'  R  I N  T  0  U  T  T  "  6  .  LI  K  ELY  TARGETS:  "  (  C  Q  N  V  E  R  T  B  S  S  B  o  a  r  d  :  C  L 


IF  MARK  =  'NIL 

BSSBoard  :  CLOSEDETECT  -•=  'NIL 
THEN  MARK*  '  T 

(PRINTOUT  T  "6.  LIKELY  TARGETS:  "  (CONVERT  BSSBoard : CL 
OSEDETECT)  T); 

IF  MARK  =  'NIL 

BSSBoard :FARDETECT  ~=  'NIL 
THEN  MARK*'T 

(PRINTOUT  T  "6.  POSSIBLE  TARGETS:  "  (CONVERT  BSSBoard: 
FARDEYECT)  T); 

IF  MARK  =  'NIL 

THEN  (PRINTOUT  T  "6.  POSSIBLE  TARGETS:  NONE"  T) ; 

THEN  (PRINTOUT  T  “7.  EST.  IMPACT  TIME:  "  P3 IMPACTTIME  T  "8. 
CONFIDENCE:  "  (GETPROP  EVENTMATCH  ’ P2C0NFIDENCE)  T  T) 

( R  u  n  F:  S  1 S  p  e  c  u  1  a  t  e )  ,• 

IF  EXPLAINBoard: COMMENT  ■-•=  ‘NIL 
THEN  ( E  V  ALE  X P  L  A I N  B o a  r  d : C  0  M M ENT ) ; 

THEN  (PRINTOUT  T  T  "If  you  wish  further  explanation  type  T, 
"  T  "Otherwise  type  NIL  to  proceed."  T) 

(SETQ  READ  (RATOM  NIL  NIL) ) i 

IF  READ  =  'T 

THEN  (SETO  FACTORLIST  (LIST  BSSBoard : EXPNUMBER  'BSSBoard  T 
R  E  N  D  B  o  a  r  d  :  E  X  P  N IJ  M  B  E  R  '  T  F;  E  N  0  B  o  a  r  d  M  A  T  C  H  B  o  a  r  d  ;  E  X  P  N  U  M  B  E  R  '  M  A  T  C  H 
B  o  a  r  d  I  n  t  e  1 B  o  a  r  d  :  E  X  P  N  U  M  B  E  R  '  I  n  t  e  1 B  o  a  r  d  S  Y  S  B  o  a  r  d  :  E  X  P  N  U  M  B  E  R  ' 
SYSBoard ) ) ; 

IF  READ  =  'T 
OUT VAR  =  'NO 

THEN  ( R  u  n  R  S  '  L  0  W  R  a  n  k  i  n  g )  ( R  u  n  F;  S  '  E  x  p  lain )  ( S  T  0  P ) ; 

IF  READ  =  'T 
OUT VAR  *  "YES 

THEN  ( RunRS  ' H I GHRank i ng )  ( RunRS  ' Exp  1  a i n ) ; 

#&( Ru i eSetSource  " ODUO . zi [ : . Eb : . 3" ) 

26* 

NIL 

26* 

NIL 

26* 

NIL 

26* 

NIL 

26*  (REDO  100) 


us  my  OiDOoensur  oneur 

RuleSet  BSSensorCheck 

Last  Edited;  3-oct-S5  is;46;52  by 

Workspace  Class:  Targets; 

Compiler  Options:  ; 

Tern p o r  a r  y  V  a  r  s :  P  3 S  E  N  S 0 R C A  P  P  3  S E  N S 0  R C 0 N F ; 

Control  Structure:  DOALL; 

* * * * **** 


(*  &  £  2 e n  sorCheck  aids  ESSTrendCheck  in  evaluating  the  T 

rend  of  BSS  evidence.  P 3 SENS OR  is  computed  by  comparing  the 
& S S  s i t e  c  o  n  fide n  c e  a n  d  c  a  p  a  b i 1 i t y  . ) 

THEN  (SETO  P3SENS0RCAP  (GETPROP  SENSOR  ‘CAPABILITY)) 

(SETQ  P3SENS0R  O); 

(*  First  P3SENS0RRATING  is  mapped  to  the  categories  of  H 
IGH,  MEDIUM,  or  LOW.) 

IF  P3SENS0RRATING  >=  7 
THEN  P3SENS0RC0NF*  'HIGH; 

IF  P3SEMS0RRATING  >=  4 
P3SENS0RRATING  <  7 
THEN  P3SENS0RC0NF+ ' MEDU I M ; 

IF  P3SENS0RRAT I NG  <  4 
THEN  P  3  S  E  N  S  0  R  C  0  N  F  «■  ‘  L  0  W ; 

(*  Now  P 3 SENS OR  can  be  determined,  ) 

IF  P3SENS0RCAP  =  'FULL 
P3SENS0RC0NF  =  'HIGH 
THEN  (SETQ  P3SENS0R  9); 

IF  P3SEN30RCAP  =  'FULL 
P3SENS0RC0NF  =  'MEDIUM 
THEN  (SETQ  P3SENS0R  3); 

IF  P3SENS0RCAP  =  'PARTIAL 
P3SENS0RC0NF  =  'HIGH 
THEM  (SETQ  P3SENS0R  7); 

IF  P3SENS0RCAP  =  'FULL 
P3SENS0RC0NF  =  'LOW 
THEN  (SETQ  P3SENS0R  6); 


IF  P33ENS0RCAP  =  'PARTIAL 
P3SENS0RC0NF  =  '  MEDIUM 


BE 


IF  P3SENS0RCAP  =  'PARTIAL 
P3SENS0RCGNF  =  ‘ MEDUIM 
THEN  (SETQ  P3SENS0R  5); 

IF  P3SENS0RCAP  =  'ZERO 
P3SENSORCONF  =  'HIGH 
THEN  (SETQ  P3SENS0R  4) ; 

IF  P3 SENSOR CAP  =  'PARTIAL 
P3SEN SORCONF  =  ' LOW 
THEN  (SETQ  P3SENS0R  3)j 

IF  P3SENS0RCAP  =  'ZERO 
P3SENS0RC0NF  =  'MEDUIM 
THEN  (SETQ  P3SENS0R  2); 

IF  P3SENS0RCAP  =  'ZERO 
P3SENS0RC0NF  =  'LOW 
THEN  (SETQ  P 3 SENSOR  1); 

THEN  (PRINTOUT  T  "this  is  P3SENS0RRATING :  "  P3SENS0RRAT ING 
T  "This  is  P3SEN SORCONF  "  P 3 SENSOR CO NF  T  "thsi  is  P3SESN0RC 
AP  "  P3SENS0RCAP  T  "this  is  P3SENSOR  "  P 3 SENSOR  T  ); 

P& ( RuleS'e  t  ?  o  u  r  c  e  "  S  W  US .  zl[  ) 


NIL 

32<-  (REDO  100) 


v.  V. V..V.  v  ^  ■«"  A  V V’fiv’.'w  vsit^ni  v»  i  Firnr^v*  n*T*wi»ji 


TV^TVTT'TT 


us  )f ly  *doo  ilo  i 

RuleSet  BSSTEST 

Last  Edited:  s- Oct- 85  14:58:50  by 

W or k Spa c e  C 1 a s s :  B o a r d s ; 

Compiler  Options:  ; 

T  e  m  p  o  r  a  r  y  V  a  r  s  :  M  A  R  K  R  E  A  0  0  U  T  V  A  R  X  V  A  R  V  V  A  R ; 

Control  Structure :  DOALL ; 

*  ■¥  +  4«  •+:  4=  * 


(*  BSSTEST  processes  the  BSS  message  for  those  events  which 
have  been  identified  as  TEST.  First,  BSSTEST  consults  Boar 
dVoting  to  determine  when  confidence  level  revision  is  appr 
o p r i  a  t  e ,  a n d  t h e n  c o n suits  B S S B o a r d  g u i t e  h e a v  i  1  y  to  d  e  t  e  r  rn 
i ne  w h e n  h y p o t  h e s i s  re v i s i o n  t o  o t h e r  c a s e s  s u c has  H 0 S T I 

LE,  UNRESOLVED  or  UNKNOWN  is  in  order.  BSSTEST  then  fills 
out  the  BSS  report  for  the  MWG  and  permits  exp  1  ana 

tion  using  Explain  and  Explains.) 

THE  N  ( R u  n R  S  1 B o a  r  d V o t i n g ) ; 

IF  HI  OH VOTE  >=  3 

( OETPROP  EVENT MATCH  ' P2C0NF I  DENSE )  =  'EXTLOW 
THEN  (PUT PR OP  EVENTMATCH  1 P2C0NF I DENCE  ' LOW ) ; 

IF  HI GH VOTE  >=  3 

(GET PROP  EVENTMATCH  ' P 2 CONFIDENCE)  =  'LOW 
THE  N  ( P  U  T  P R 0 P  E  V  E  N  T  M  A  T C  H  ' P  2  C 0 N F I D  E  N  C  E  'HI G H ) ; 


IF  LOWVOTE  >=  3 

(GETPROP  EVENTMATCH  ' P2C0NF I DENCE )  = 
THE  N  ( P  LI  T  P  R  0  P  E  V  E  N  T  M  A  T  C  H  '  P 2  0 0 N  F I D  E  N  C  E 


'EXTHIGH 

'HIGH); 


IF  LOWVOTE  >=  3 

(GETPROP  EVENTMATCH  ' P2C0NF I DENCE )  =  'HIGH 
THEN  (PUTPROP  EVENTMATCH  ' P2C0NF I DENCE  'LOW); 

( *  H  a  v  i  n  g  a  c  c  o  rn  p  1  i  s  h  e  d  c  o  n  f  i  d  e  n  c  e  r  e  v  i  s  i  o  n  w  h  e  n  n  e  c  e  s  s  a  r  y , 
hypothesis  revision  can  take  place  below.) 

IF  BSSBoard : EXPN UMBER  <=  2 

(GETPROP  EVENTMATCH  ' P2C0NF I DENCE )  =  'LOW 
HYPOTRANSFER  =  'NIL 
THEN  (SETO  HYPOTRANSFER  '  T ) 

(  R  u  n  R  S  '  B  S  S IJ  N  R  E  S  0  L  V  E  D )  ( S  T  0  P ) ; 

IF  BSSBoard : EXPNUMBER  <=  2 

(GETPROP  EVENTMATCH  ' P2C0NF I DENCE )  =  'EXTLOW 
HYPOTRANSFER  =  'NIL 


*  - 


€ 


> 

l 

r. 


t 


H  Y KU I KHNof tK  =  NIL 

THEN  (SETO  HYPOTRANSFER  ’T) 

(RunRS  ' BSSUNRE SOLVED)  (STOP); 

IF  HYPOTRANSFER  =  'NIL 
BSSBoard :  EXPNUMBER  >  2 
THEN  (SETO  HYPOTRANSFER  'T) 

( RunRS  1 BSSHOSTILE)  (STOP); 


(*  The  03  THREAT  and  other  target  THREAT  are  combined  toget 
her  into  the  LISTs  on  BSSBoard.  THREAT  set.  to  NO  first.) 

THEN  OUT VAR* ’ NO ; 

IF  BSSBoard : EXP NUMBER  >  2 
THEN  OUT VAR* ' YES ; 


IF  TRENDBoard : WILLNUMBER  >=  1 

THEN  (Put Value  BSSBoard  ' WILLOETECT  (APPEND  BSSBoard: WILLDE 
TECT  TRENDBoard : W I LLOETECT ) ) ; 


IF  TRENDBoard: CL OSENUMBER  >=  1 

THEN  ( P u t V a  1 u e  B S S B o a r d  ' 0 L 0 S E D E T E C T  C  A P P E N D  B S S B o a r d : CL 0 S E 
DETECT  TRENDBoard ; CLOSEOETECT ) ) ; 


IF  TRENDBoard iFARNUMBER  >=  1 

THEN  ( P u t V a  1 u e  B S S & o a r d  ’ F A R D E T E 0 T  ( APPE N D  B S S B o a r d : F A R D E T E 
GT  TRENDBoard : FARDETECT ) ) ; 


(*  Output  Section) 


THEN  (PRINTOUT  T  T  "EVENT  Considered:  TEST"  T  T  T  " 
"  EVENTMATCH  T  T  "1.  DETECTED:  "  PSTIME  T  "2.  BSS: 
TENUM  T  "3.  THREAT:  "  OUTVAR  T  "4.  LAUNCHER  TYPE: 
card : LAUNCHERTYPE  T  "5.  OBJECTS  TRACKED:  " 

NUM  T)  MARK* 'NIL; 


BSS 

P3SI 

MATCHB 

P30BJ 


IF  BSSBoard:  WILLDE  TECT  --=  'NIL 

THEN  MARK* ' T  (PRINTOUT  T  "6.  VERY  LIKELY  TARGETS 
( C  0  N  V  E  F:  T  B  S  S  B  o  a  r  d  :  W I L  L  D  E  T  E  C  T )  T ) ; 


IF  MARK  =  'NIL 

B S S B o a r d : C L 0 SE DETECT  -=  'NIL 
THEN  MARK* ' T  (PRINTOUT  T  "6.  LIKELY  TARGET? 
BSS&oar d : CLOSEOETECT )  T ) ; 


(CONVERT 


I.  UIJNVtR  I 


intn  piaki\+ '  i  ^ntiNiuui  i  b,  Lir.tLv  ittKbtis: 
BSSBoar d : CLOSEDETECT )  T ) ; 


IF  MARK  =  'NIL 

BSSBoar d : F ARDETECT  ~=  'NIL 

THEN  MARK+'T  (PRINTOUT  T  "6.  POSSIBLE  TARGETS:  "  ( CONVERT 
BSSBoar d : F ARDETECT)  T); 


IF  MARK  =  'NIL 

THEN  (PRINTOUT  T  "6.  POSSIBLE  TARGETS:  NONE"  T); 


THEN  (PRINTOUT 
CONFIDENCE:  " 
RS  ' Speculate) ; 


T  "7,  EST.  IMPACT  TIME:  "  P3 IMPACTTIME  T  "8. 
(GETPROP  EVENT MATCH  ‘ P2 CONFIDENCE)  T  T)  (Run 


IF  EXP LA  I NBoard: COMMENT  --=  'NIL 
THEN  ( E  V  A  L  E  X  P  L  A I N  B  o  a  r  d  :  C  0  M  M  E  N  T ) ; 


THEN  ( P R INTOUT  T  T  "I f  y o u  w i s h  f u r t h e r  e x p 1  a n a t i o n  t y p e  T, 
"  T  "Otherwise  type  NIL  to  proceed."  T)  (SETQ  READ  (RATOM  N 
IL  NIL)).: 


IF  READ  =  ' T 

THEN  (SETO  FACTORLIST  (LIST  BSSBoar d : EXP NUMBER  ' BSSBoar d  T 
R E N D B o a r d  :  E X P N IJ M B E R  '  T R E N D B o a r  d  M A T C H B o a r  d  :  E X P N U M B E R  '  M ATCH 
B o a r d  I n t e 1 B o a r d : E X P N U M BER  'I n tel 6 o a r d  S Y S B o a r d : E X P N U M B E R  ' 
SYSBoard ) ) : 

IF  READ  =  'T 
OUT VAR  =  'NO 
THEN  ( R  u  n  R 3  1 L  0 W  R  a  n k i n  g ) 

( R  u  n  R  S  '  E  x  p  1  a  i  n )  ( S  T  0  P ) : 

IF  READ  =  '  T 
OUT VAR  =  'YES 

THEN  ( R  u  n  R  S  'HIGH  F:  a  n  k  i  n  g )  ( R  u  n  R  S  '  E  x  p  1  a  i  n ) 

( Rule S  e  t  S o u r  c  e  (10  .  492  8  4 ) ) 

13+ 

NIL 

13+ 

NIL 

13+ 

NIL 

13+ 

NIL 

13+ 

NIL 

13+ 

NIL 

13- ( REDO  100 ) 


us  i  r i y  $doo  i  l-»  i  unuuK 
RuleSet  BSSTGTCheck 

Last  Ed  its  d:  8-oct-ss  1 4:47:41  by 

W  o r k  S p a  c  e  C lass:  B o  a  r d s ; 

Compiler  Options:  ; 

Temporary  Vars:  TGTW I LLDETECT  T6TCL0SE0ETECT  TGTFAROETECT 

TLIST  TPOINT  TRANGE  THEADING  TARGET  THEADIFF  MARK  TLIST  F:A 
NGEMARK  MAX  RANGE  LSTVF'E  RANGED  IFF ; 

Control  Structure:  WHILEALLj 
Iter  a  t i o  n  C o n d i t i o n :  T ; 

4:  +  4=  4c  4  4=  * 


( *  B S S T G T C H E C K  i s  u s e d  b y  t h e  B S 3  me s s a g e  p r o c e s s i n g  to  t a k 
e  the  FANCALL  of  the  EVENT  and  place  all  of  the  targets  in 
three  categories:  WILLGETECT  are  those  targets  within  1  deg 
ree  of  missile  heading,  CLOSEOETECT  are  those  within  5  degr¬ 
ees,  a n d  F  A R D E T E C T  a r  e  u p  t o  1 8  d e g r  e e s  .  N o t. e  t h at  e a c h  t a r 
g e t  will  a p p e a r  i n  o n 1 y  o n e  o f  t h o s e  list s .  R A N G E  in f o r m a t i 
o n  i s  u s e d  t o  r educe  t h e  FANCALL  sear c h  r e q u r ieme n t s ,  Re s u 1 
t  s  a  r e  p 1  a  c  e  d  o  n  t  h  e  B  S  S  B o  a  r  d  b lac  k  b o  a r d  .  ) 

•ri!>  THEN  TLIST*  (CDF:  TAGLIST) 

BSSBoard:WILLNUMBER*0 

B  3  SB  card  :  CLQSENUMBER*0 

BSSBoard : FARNUMBER+G 

B S  S  B o  a  r  d : W 1LLDETECT*NIL 

BSSBoard : CLOSEOETECT*NIL 

BSSBoard : FAF:DETECT*NIL 

L  S  T  V  P  E  ^  M  A  T  C  H  B  o  a  r  d  :  L  A IJ  N  C  H  E  R  T  V  P  E 

( S ETQ  H E A D I N G  M A T C H B o a r d ; L S H E A D I N G ) ; 

IF  (CAR  TLIST)  =  'NIL 

THEN  BSSBoar  d  :  W I LLDETECTt-TGTW I LLDETECT 

BSSBoard : CLOSEDETECT*TGTCLOSEOETECT 
BSSBoard  :  F A RDETE C T T GTF ARDET EC T 
(PRINTOUT  T  "This  is  W I LLDETECT:  "  TGTW I LLDETECT  T 
"This  is  CLOSEOETECT:  "  TGTCLOSEDETECT  T 
"THIS  is  FARDETECT:  "  TGTFAROETECT  T 
"This  is  WILLNUMBER:  "  BSSBoard : WILLNUMBER  T 
"this:  is  CLOSE  NUMBER:  "  BSSBoard  :  CLOSE  NUMBER  T 
"This  is  FARNIJMBER:  "  BSSBoard :  FARNIJM BE R  T) 

(STOP) ; 

THEN  TPO I  NT 4 ( CAR  TLIST) 

TARGET* (CAR  TPO I  NT) 

TRANGE* (CADOR  TPO  I  NT  ) 

THEADING*( CADR  TPOIHT) 

MARK* ' T  RANGEMARK*  '  T 


■»_  X  “ 


I 


i,.o  i  u  k  ) ; 

THEM  TPO I  NT *  (  CAR  TLIST) 

TARGET* (CAR  TPOINT) 

TRANGE* ( CAQDR  TPOINT) 

THEADING*fCAOR  TPOINT) 

MARK* ' T  RANGEMARK* ' T 

THEADIFF*(ABS  (DIFFERENCE  THEADING  HEADING) ) ; 

( *  MAXIMUM  range  of  each  missile  type  is  specified  here) 

IF  LST VPE= ' TYPE! 

THEN  MAXRAN8E*13£5 ; 


;  IF  L  S' TV  PE  =  1  TYPES 

i  THEN  MAXRAN6E*£850j 

THEN  RANGED  IFF* (DIFFERENCE  MAX RANGE  TRANCE) j 

IF  RANGED  IFF  <  9 
THEN  RANG EM ARK* 'NIL ; 

IF  THEADIFF  <=  1 
RANGEMARK  =  ' T 

THEN  T GTW ILL DETECT* (APPEND  (LIST  TARGET)  TGTWILLDETECT)  M 
ARK* 'NIL 

B S S B o a r d : W I L L N U M B E R * ( P L U S  TRE N D B o a r d : W ILLN U M B E R  1 ) ; 

IF  THEADIFF  <=  5 
MARK  =  'T 
RANGEMARK  =  ' T 

THEN  TGTCLOSEDETECT* ( APPEND  (LIST  TARGET)  TGTCLOSEDETECT)  B 
S  S  B  o  a  r  d  :  C  L  0  S  E  N  U  M  B  E  R  *  (  P  L IJ  S  TRE  N  D  B  o  a  r  d  :  C  L  0  S'  E  N  U  M  B  E  R  1 )  M  A  R  K  * 
’  NIL; 


IF  THEADIFF  <=  10 
MARK  =  'T 
RANGEMARK  =  'T 
THEN  T6TFARDETECT*( APPEND 
B  S  S  B  o  a  r  d  :  F  A  R  N  IJ  M  B  E  R  *  ( P  L  IJ  S 


(LIST  TARGET)  TGTFARDETECT ) 
TRE  N  D  B o a r d : F  A R  N U M B E  R  1 ) j 


THEN  TLIST 
# o: (  R uleSet 

1  l;l  * 

NIL 

18* 

NIL 

18* 

N I L 


(ODR  TLIST) ; 
ource  "SWU0 . zl [ 


1 8 *-(  RE 0 0  1 0 3  ) 


5  " ) 


us  my  i  r  enuonecK 

RuleSet  BSSTrendChecK 

Last  Edited:  9-Oct-SS  1 4; 03; 24  by 

Workspace  Class:  Boards; 

Compiler  Options:  ; 

Temporary  Vars;  FIRSTCONF  8EC0N0C0NF  UP NUMBER  MARK; 
Control  Structure:  DOALL; 

*  *  *  *  +  *  If  * 


(*  BSSTrendChecK  weighs  the  evidence  trorn  3  factors  CONFIDE 
NCE  LEVELS,  IF:  TYPE  and  SENSOR  RATING  from  ADS-1  to  the  ADS 
-2  Report,  and  to  the  BSS  REPORT  and  attempts  to  discern  wh 
ether  the  Trend  of  evidence  is  going  up  or  down.) 

THEN  UP  NUMBER*- 3  ; 

( *  T o  rn a k e  it  e a s i e r  to  c o m p a r e ,  f i r s t  P 1 C 0 N FIDE N C E  a n d  P 2 C 
ONFIDENCE  from  the  EVENT  LIST  are  mapped  to  numbers.) 


IF  (GETPROP  EVENTMATCH 
THEN  FIRSTCONF <-5; 

' P1C0NF I DENCE ) 

— 

' EXTHIGH 

IF  (GETPROP  EVENTMATCH 
THEN  FIRSTCONF+4; 

1 P1CGNF I DENCE ) 

= 

1  »  1  T  1  1 

nibn 

IF  (GETPROP  EVENTMATCH 
THEN  FIRSTC0NF*3; 

1  PI CONFIDE NCE) 

= 

' M I XED 

IF  (GETPROP  EVENTMATCH 
THEN  FIRSTCONF *2; 

■piconfidence: 

)  = 

'  LOW 

IF  (GETPROP  EVENTMATCH 
THEN  FIRSTCONF*!; 

■piconfidence; 

)  = 

' EXTLOW 

IF  (GETPROP  EVENTMATCH 
THEN  SEC0NDC0NF+5; 

•P2C0NFI DENCE) 

= 

'EXTHIGH 

IF  (GETPROP  EVENTMATCH 
THEN  S  E  CON  DC  CNF  *-3; 

•P2C0NFI DENCE) 

= 

'MIXED 

IF  (GETPROP  EVENTMATCH 
THEN  SEC0NDC0NF+4; 

■P2C0NFI DENCE) 

= 

'HIGH 

IF  (GETPROP  EVENTMATCH 
THEN  SEC0NDC0NF*-2 ; 

'  P2C0NF I DENCE) 

= 

'LOW 

IF  (GETPROP  EVENTMATCH 

' P2C0NF IDENCE ) 

= 

' EXTLOW 

THEN  SECONDCONF*!; 


(*  Here  they  are  compared,  in  case  of  tie,  TREND  is  IJP.)  I 
F  SECONDCONF  >=  FIRSTCONF 
THEN  UPNUMBER* (PLUS  UPNUMBER  l); 

(*  FIRSTCONF  variable  recycled:  Here  it  is  used  with  BSS  lo 
cal  variables  to  verify  TYPE1  or  TYPES  Missile  data.) 

THEN  FIRSTCONF* ‘ TYPES; 

IF  P3ST ABILITY  =  'Y 
P SOB J HUM  <  S 

( GETPROP  EVENTMATCH  1 P1IRTYPE)  -=  ’TYPES 
THEN  FIRSTCONF*' TYPE1; 

(*  The  Infrared  Type  TREND  takes  advantage  of  the  typing  o 
f  ADS-S  Feature  Set  into  MATCH,  MISMATCH,  NOMATCH.  Only  way 
to  get  DOWN  trend  is  to  get  MISMATCH  or  a  MATCH  on  an  Indi 
s  t  i  n  c  t  o  r  ij  n  k  n  o  w  n  A  D  S  - 1  r  e  a  d  i  n  g . ) 

IF  (GETPROP  EVENTMATCH  ' P1IRTYPE)  =  'INDISTINCT 
(GETPROP  EVENTMATCH  ' P2TYPE)  =  ’MATCH 
THE  N  U P N U M B  E  R * ( S U B 1  U  P  N  U M B  E  R ) ; 

IF  (GETPROP  EVENTMATCH  ’P1IRTYPE)  =  'UNKNOWN 
(GETPROP  EVENTMATCH  'PS TV PE)  =  'MATCH 
THEN  UPNUMBER* (SU&l  UPNUMBER),' 

IF  (GETPROP  EVENTMATCH  ' PSTYPE )  =  'MATCH 
THEN  U P N U M B E  R * ( P L  U S  U  P N U  M  B  E  R  i )  ; 

IF  (GETPROP  EVENTMATCH  ’PSTYPE)  =  'NOMATCH 
THEN  U  P  N IJ  M  B  E  R  *  ( P  L  U  S  U  P  N  U  M  B  E  R  1 ) ; 

( *  F o r  E' S 3  c a s e s  FI R S T C 0 N F  c o m p a r e d ,  w h e n  all  3  m e a s u r e rn e n t 
s  o c c u r ,  net.  e f  f e c t = S ,  o t h e r w  i  s e  p  1  u s  one  ,  ) 

IF  FIRSTCONF  =  ' TYPE1 

(GETPROP  EVENTMATCH  'P1IRTYPE)  =  ’ TYPE1 
(GETPROP  EVENTMATCH  ’PSTYPE)  =  ’MATCH 
THEN  IJ  P  N  U  M  &  E  R  *  ( P  L  U  S  U  P  N  U  M  B  E  R  1 )  j 

IF  FIRSTCONF  =  ’TYPES 

(GETPROP  EVENTMATCH  ’P1IRTYPE)  =  ’TYPES 
(GETPROP  EVENTMATCH  ’PSTYPE)  =  ’MATCH 
THEN  IJ  P  N  U  M  B  E  R  *  ( P  L  U  S  IJ  P  N  IJ  M  B  E  F:  1 )  .• 

IF  (GETPROP  EVENTMATCH  ’PSTYPE)  ~=  ’MISMATCH 
THE  N  IJ  P  N  IJ  M  B  E  R  *  ( P  L  U  S  U  P  N  U  M  B  E  R  i  ) ; 


intN  UKNUmtJtK^t  PLUS  UHNUIOCitK  I )  ; 


(*  SENSOR  Ratings  can  be  compared  directly  since  they 
are  already  numbers.  TIE  is  an  UP  vote.) 

IF  (GETPROP  EVENTMATCH  ' P2SENS0R)  >= 

( GETPROP  EVENTMATCH  ‘PiSENSOR) 

THEN  UPNUMBER* ( PLUS  UP NUMBER  1); 

( *  BSSensorCheck  is  run  to  compute  a  value  for  P33ENS0R) 


THEN  ( RunRS  1 BSSensorCheck ) 

(PRINTOUT  T  "IJPNUMBER  before  BSSensorCheck  "  UPNUMBER  T  " 
This  is  PSSensor  :  "  P3SENS0R  T ) ; 

IF  PSSENSOR  >=  (GETPROP  EVENTMATCH  1 P2SENS0R) 

THEN  U P N IJ M BER*  (  P  L U S  U P  N U M B E R  i  )  ; 

IF  PSSENSOR  >=  (GETPROP  EVENTMATCH  ’PISENSOR) 

THEN  UPNUMBER* (PLUS  UPNUMBER  1); 

THEN  (PRINTOUT  T  "This  is  UPNUMBER  "  UPNUMBER  T) ; 

(*  Now  the  results  are  interpreted,  COMMENT  and  EXP NUMBER 
on  the  TRENOBoard  are  set.) 

IF  UPNUMBER  >  5 

THEN  T R E N 0 B o a r d : E X P N U M BER*4  T R E N 0 B o a r d : C 0 M M E N T  * 1 ( P R I N TOUT 

T  "Trend  of  Evidence  is:  POSITIVELY  UP"  T)j 

IF  UPNUMBER.  >=  4 
UPNUMBER  <=  5 

THEN  T R E N 0 B o a r d  :  E X P N IJ M B E R * 3  T R E N 0 B o a r d  :  C 0 M M ENT*  1  ( P R I N T 0 U T 
T  "Trend  of  Evidence  is:  UP  "  T) ; 


IF  UPNUMBER  <=  4 
UPNUMBER  >=  3 

THEN  TRENOBoard : EXPNUMBER*2  TRENOBoard : COMMENT* ' (PRINTOUT 
T  "Trend  of  Evidence  is:  DOWN  "  T) ; 


IF  UPNUMBER  <  3 

THEN  TRENOBoard : EXPNUMBER*1  TRENOBoard : COMMENT* ’ (PRINTOUT 
T  "Trert d  o f  E v i d e n c e  is:  P 0 S I T I V E L V  0 0 W H "  T); 


THEN  (EVAL  TRENOBoard : COMMENT ) 

(SETO  TAGLIST  (GETPROP  (GETPROP  EVENTMATCH 
N C ALL ) )  M  A R  K  * ' N I L  FIR  S T  C  0  N F  * ' N I L 
'  (RunRS  'BSSTGT Check); 


P1LS)  'FA 


nci  riKSiuuNr  r  lags  are  set  ror  trie  uumrntw  1 1> . ) 


IF  BSSBoard : WILLNUMBER  >=  1 
THEN  BSSBoard :  EXPNUM6ER-4 

BSSBoard  :  COMMENT  - ‘  (PRINTOUT  T  T  "Threat  to  US  Targets: 
EXTREMELY  LIKELY"  T)  MARK-'T; 

IF  MARK  =  'NIL 

BSSBoard : CLOSENUMBER  / =  1 
THEN  BSSBoard :  EXPNUMBER-3 

BSSBoard : COMMENT*- '  (PRINTOUT  T  T  "Threat  to  US  Targets: 
LIKELY"  T)  MARK 4- '  T; 

IF  MARK  =  'NIL 

BSSBoard :FARNUMBER  >=  1 
THEN  B  S  3  B  o  a  r  d :  E  X  P  N  U  M  B  E  R  -  2 

BSSBoard:  COMMENT* '(PRINTOUT  T  T  "Threat,  to  US  Targets: 
POSSIBLE"  T)  MARK- ' T; 

IF  MARK  =  'NIL 

THEN  BSSBoard : EXPNUMBER-1 

BSSBoard: COMMENT-' (PRINTOUT  T  T  "Threat  to  US  Targets: 
NONE  "  T)j 

( *  S  i  n c e  B 3 S  e v e n t  p r  o c e s s  i  n g  rn a k e s  t he  DETECT B o a r d  i  r r e  1  a v 
ant  the  previous  03  target  threat  COMMENT  previously  usedwi 
th  DETECT Board  is  reproduced  for  BSSBoard.) 

IF  TRENDBoard: WILLNUMBER  >=  1 

THEN  M A  R  K - ' ( " T h  r  e  a t  t o  C 3  N o  d e  s :  V E  R Y  HIGH"  T ) 

F I RSTCONF- ' T  BSSBoard : EXP NUMBER-4 ; 

IF  FI RSTCONF  =  'NIL 

T  R  E  N  D  B  o  a  r  d :  C  L  0  S  E  N  U  M  B  E  R  >  =  1 
THEN  MARK- '( "Threat,  to  C3  Nodes:  HIGH  "  T) 

FI RSTCONF- ' T ; 

( *  HIGH  o r  V E R Y  HIGH  0 3  N o d e  T h r e a t  w ill  o v e r  ride  t h e  E X P N 

UMBER  set  above  since  sometimes  no  or  few  US  targets  will  b 
e  threatened  but  03  Nodes  are  under  heavy  threat. . ) 

IF  FI RSTCONF  =  'T 

BSSBoard : EXPNUMBER  <  3 
THEN  B  S  S  B  o  a  r  d :  E  X  P  N IJ  M  B  E  R  -  3 ; 

IF  FI RSTCONF  =  'NIL 

T  R  E  N  D  B  o  a  r  d :  F  A  R  N  IJ  M  B  E  R  >  =  1 
THEN  MARK- ' ( "Threat  to  03  Nodes:  LOW"  T) 

FI RSTCONF- ’ T ; 


iKtNUBoara:rHKNuniDtK  /=  i 

THEN  MARK+ ' ( "Threat  to  C3  Nodes:  LOW"  T) 

FIRSTCONF+ 1  T ; 

IF  FIRSTCONF  =  ’NIL 

THEN  MARK+' ("Threat  to  C3  Nodes:  VERY  LOW"  T) ; 

THEN  ( PutValue  BSSBoard  'COMMENT  (APPEND  ( Get Value  BSSBoard 
•COMMENT)  MARK))  (SET Q  HYPQTRAN8FER  'NIL); 

( *■  This  section  will  map  each  event  to  the  appropriate 
h  y  p  o  t  h  e  s  i  s  f  o  r  p  r  o  c  e  s  s  i  n  g , ) 

IF  (GETPROP  EVENTMATCH  ' P2HYP0)  =  'HOSTILE 
THEN  (RunRS  ' BSSHOSTILE) ; 

IF  (GETPROP  EVENTMATCH  ' P2HYP0 )  =  'TEST 
THEN  (RunRS  ' BSSTEST) ; 

IF  (GETPROP  EVENTMATCH  ' P2HYP0 )  =  ’UNRESOLVED 
THEN  ( R  u  ri  R  S  '  B  S  S IJ  N  R  E  S  0  L  V  ED); 

IF  (GETPROP  EVENTMATCH  ' P2HYP0)  =  'UNKNOWN 
THEN  (RunRS  ’ BSSUN KNOWN ) ; 

#&( Ru 1 eSetSource  " SWU8 . i I [ : . < ; : . 6 " ) 

6  3  * 

NIL 

63+ 

NIL 

63+ 

NIL 

63+ 

NIL 

63+ 

NIL 

63+ 

NIL 

63+ 

NIL 

63 

NIL 

63+ 

NIL 
63  + 

NIL 
63  + 

NIL 

63+ 

NIL 

6  3  +  (  R  E  D  0  1 0  0  ) 


us  my  t-Doourmwuww 

RuleSet  BSSUNKNOWN 

Last  Edited;  S-Oct-SS  15;17;21  by 

Workspace  Class;  Boards; 

Compiler  Options:  ; 

T  e  m  p  o  r  a  r  y  V  a  r  s  ;  MARK  READ  0  U  T  V  A  R  X  V  A  F:  V  V  A  R ; 

Control  Structure:  DOALL; 

^  -4: 


{*  BSSUNKNOWN  processes  the  BSS  message  for  those  events  w 
i c  h  h  a  v  e  been  i d e  n  t i f i e  d  a  s  U N K N  0 W  H .  F i r s  t ,  B  S S  U  N  K  N 0  W  N  d  o  e 
confidence  level  rev  is  ion and  then  consults  BSSBoard  quite 
h e a v  i  1  y  t o  dete r rn i  ri e  w h e n  h v p o t h e s i s  r  e v  i s  i o n  t o  o t h e r  c a s 
s  such' as  HOSTILE,  TEST  or  UNRESOLVED  is  in  order ,  BSS UN RE 
OLVED  then  fills  out  the  BSS  report  for  the  MWO  and  permit 
e  x  p 1  a  n a  t i o n  u sin  g  E  x  p 1  a i n  a  n d  E  x  p 1  a i n 2 .  ) 

THEN  ( F:  u  n  R  S  '  B  o  a  r  d  V  o  t  i  ri  g ) ; 

IF  HIGHVOTE  >=  3 

(  GET PROP  EVENT MATCH  '  P2CQHFIDENCE)  =  ‘EXTLOW 
THEN  ( P IJ  T  P  R  0  P  E  V  E  N  T  M  A  T  0  H  '  P  2  C  0  N  FIDE  N  C  E  '  L  0  W  )  ; 

IF  HIGHVOTE  >=  3 

(GETPROP  EVENTMATCH  ' P2C0NF IDENCE )  =  'LOW 
THEN  ( PUT PROP  EVENTMATCH  '  P2C0NF I  DENSE  'HIGH); 

IF  LOW VOTE  >=  3 

(GETPROP  EVENTMATCH  '  P2C0NF IDENCE)  =  'EXTHIGH 
THEN  (PUTPROP  EVENTMATCH  ' P2C0NF IDENCE  'HIGH); 

IF  LOW VOTE  >=  3 

(GETPROP  EVENTMATCH  ' P2C0NF IDENCE)  =  'HIGH 
THEN  (PUTPROP  EVENTMATCH  ' P2C0NF IDENCE  'LOW); 

( *  H a v i n g  a c c o rn p  1  s h e d  c o n f i d ence  1  e v el  re v i s i o n  a b o v e ,  n o w 
belief  r e  v i s i o  n  o  c  c  u  r  s  w h  e  n  w a  r r  a  n  t  e  d . ) 

IF  BSSBoard :EXPNUMBER  <=  2 

(GETPROP  EVENTMATCH  ' P2C0NF IDENCE)  =  'HIGH 
HVPOTF:ANSFER=  'NIL 

THEN  ( SET Q  HYPOTRANSFER  'T)  (RunRS  'BSS TEST)  (STOP); 

IF  BSSBoard :EXPNUMBER  <=  2 

(GETPROP  EVENTMATCH  ' P2C0NF IDENCE)  =  'EXTHIGH 
HVF'OTRANSFER=  'NIL 

THEN  (SETO  HYPOTRANSFER  'T)  (RunRS  ' BSSTEST )  (STOP); 


ItltN  l.SLiy  hYHUIKANSrtK  '  I  J^UIIKS  Dei I  to  I  ) 


IF  HYPOTRANSFER  =  'NIL 
BSS&oard : EXPNUMBER  >  2 

THEN  (SETQ  HYPOTRANSFER  ‘ T)  (RunRS  'BSSHOSTILE)  (STOP); 

IF  HYPOTRANSFER  =  ‘NIL 

(GETPROP  EVENTMATCH  ’ P2C0NF I  DENSE )  =  'HIGH 
THEN  (SETQ  HYPOTRANSFER  ' T)  (RunRS  1 BSSUN RESOLVED)  (STOP) ; 

IF  HYPOTRANSFER  =  'NIL 

(GETPROP  EVENTMATCH  ' P2C0NF I  DENSE )  =  ' EXTHIGH 
THEN  (SETQ  HYPOTRANSFER  'T)  (RunRS  ' BSSUN RESOLVED)  (STOP) ; 

(*  Threat  is  assumed  to  be  NO  unless  proved  otherwise.  ) 
THEN  OUT  VAR*  '  NO,’ 


IF  BSSBoard : EXP NUMBER  >  2 
THEN  OUTVAR*'YES; 

(*  The  S3  Targets  and  rest  of  the  US  targets  are  combined 
o n  t h e  t h ree  B S S B o a r d  1 i s t s . ) 

IF  TREND Board: WILL NUMBER  >=  1 

THEN  ( P u t V a  1 u e  B S S & o a r d  ' W ILLDETECT  ( A P PE N D  B S S B o a r d : W I L L D E 
TEST  TRENOBoard : W ILLDETECT ) ) ; 


IF  TRENOBoard: CLOSE NUMBER  >=  1 

THEN  ( P u t V a  1 u e  B S S B o a r d  'CLOSEOETE C T  ( A P P E N D  B S S & o a r d : C L 0 S E 
0  E  T  E  C  T  T  R  E  N  D  B  o  a  r  d :  C  L  0  S  E  D  E  T  E  C  T ) ) 


IF  TRENOBoard :FARNUMBER  >=  1 

THEN  (Put Value  BSS&oard  ' FARDETEST  (APPEND  BSSBoard : FARDETE 
ST  TRENOBoard : FARDETEST ) )  ■ 


( *  0  u  t  p  u  t  S  e  c  t  i  o  n  ,  ) 

THEN  ( P R INTOUT  T  T '  " E V E N T  C o n s i d e r e d :  U N K N 0 W N "  T  T  T "  & 

SS  "  EVENTMATCH  T  T  "1.  DETECTED:  "  P3TIME  T  "2.  BSS :  "  P 
3SITENUM  T  "3.  THREAT:  "  OUT VAR  T  "4.  LAUNCHER  TYPE:  "  MAT 
CHBoard : LAUNCHERTVPE  T  "5.  OBJECTS  TRACKED:  "  P30BJNUM  T) 
MARK* 'NIL; 


IF  BSSBoard :WILLDETECT  --=  'NIL 

THEN  MARK* ' T  (PRINTOUT  T  "6.  VERY  LIKELY  TARGETS:  "(CONVERT 
BSSBoard ; W I LLDETECT )  T); 


IF  MARK  =  'NIL 

B  S  S  B  o  a  r  d  :  C  L  0  S  E  0  E  T  E  C  T  --=  'NIL 
THEN  MARK* ' T  (PRINTOUT  T  "6.  LIKELY  TARGETS: 
Board : CLOSEDETECT )  T); 


(CONVERT 


BSS 


ooara : CLustut i tu i ;  i  ) ; 


IF  MARK  =  'NIL 

BSSBoard : FAROETECT  ■-=  'NIL 

THEN  MARK*'T  (PRINTOUT  T  "6.  POSSIBLE  TARGETS:  "  (CONVERT 
BSSBoard : FAROETECT )  T )  ; 

IF  MARK  =  'NIL 

THEN  (PRINTOUT  T  "6,  POSSIBLE  TARGETS:  HONE"  T); 

THEN  (PRINTOUT  T  "7.  E3T .  IMPACT  TIME:  "  P3 IMPACTTIME  T  "S. 

CONFIDENCE:  "  (GETPROP  EVEMTMATCH  ' P2CQNF I DEHCE )  T  T)  (Run 
RS  'Speculate): 

IF  EXP LA  I NBoard: COMMENT  'NIL 

THEN  ( EVAL  EXPLA I NBoard : COMMENT ) ; 

THEN( PR  I NTOUT  T  T  "If  you  wish  further  explanation  type  T, " 
T  "Otherwise  type  NIL  to  proceed."  T)(3ETQ  READ  (RATOM  NIL 
NIL)); 

IF  READ  =  'T 

THEN  (SETO  FACTOR LI  ST  (LIST  BSSBoard : EXPN UMBER  'BSSBoard  T 
R  E  N D B o a  r d : E  X  P  N U  M B  E  R  ' T  R  E  N  D  Boar  d  M  A  T  C  H B  o  a  r  d : E  X  P  N U M B  E  R  'MATCH 
B  o  a  r  d  I  n  t.  e  1 B  o  a  r  d  :  E  X  P  N  U  M  B  E  F:  '  I  n  t  e  1 B  o  a  r  d  S  V  S  B  o  a  r  d :  E  X  P  N  U  M  B  E  F:  ' 
SVSBoard) ) ; 

IF  READ  =  'T 
OUT VAR  =  'NO 

THEN  ( F:  u  n  F:  S  '  L  0  W  F:  a  n  k  i  n  g )  ( R  u  n  R  S  '  E  x  p  1  a  i  n )  (  S  T  0  P ) ; 

IF  READ  =  'T 

OUT VAR  =  'YES 

THEN  ( F:  u  n  R  S  'HI  G  H  R  a  n  k  i  n  g )  ( R  u  n  R  S  '  E  x  p  1  a  i  n ) ; 

i: (RuieSet S o u r c e  (10  .  538 8 @ )  ) 

43* 

NIL 

43* 

NIL 

43* 

NIL 

43* 

NIL 

43* 

NIL 

43* 

NIL 

43* 

NIL 

43* (REDO  100) 


Ui-  1  r  I  Ll  $■  D  O  U IM  r.  C.  O  U  L  C  LI 

RuleSet  BSSUNRESOLVED 

Last  Edited;  S'- Oct- 55  14;10;37  by 

Workspace  Class:  Boards ; 

Comp i 1 er  Opt i ons :  ; 

Temp  o  r  a  r  y  V  a  r  s  :  M  ARK  REA  0  0 IJ  T  V  A  R  X  V  A  R  V  VAR; 

C o n t r o 1  S t r u c t u r e :  OOALL ; 


f *  BSSUNRESOLVED  processes  the  BSS  message  for  those  events 
which  have  been  identified  as  UNRESOLVED.  First,  BSS UN RE SO 
LVED  consults  BoardVoting  to  determine  when  confidence  leve 
1  r e v i s i o n  is  a p p r o p r i a t e ,  a n d  t. h e n  c o n s u  1 1  ■Z>  B  Cm-'  Board  quite 
heavily  to  determine  when  hypothesis  revision  to  other  cas 
e  s  s u  c  h ' a  s  HOSTILE,  TEST  o  r  U N K N 0 W N  i s  i n  o r  d  e  r .  B S  S  T  E  S  T  t  h 
en  fills  out  the  BSS  report  for  the  MWO  and  permits  exp  1 ana 
tion  using  Explain  and  Explain2.) 

THEN  ( R  u  n  R  S  '  B  o  a  r  d  V  o  t  i  ri  g ) ; 

IF  HIGH V 0 T E  >  =  3 

C G E  T  P  R 0 P  E  V E  N  T  M  A  T C H  ' P  2 C 0  N FIDE  N C E )  =  1 E  X T  L  0 W 
THE N  ( P U T P R 0 P  E V E N THAT C H  1 P 2 C 0 N FIDE N C E  1 L 0 W ) ; 

IF  HIGH VOTE  >=  3 

(GETPROP  EVENT MATCH  ' P2 CONFIDE MCE)  =  ‘LOW 
THEN  (PUTPROP  EVENTMATCH  ' P2C0NF I  DENSE  ’HIGH); 

IF  LOW VOTE  >=  3 

(GETPROP  EVENTMATCH  '  P2C0NF I  DENSE )  =  ‘ EXTHIGH 
THEN  (PUTPROP  EVENTMATCH  ' P2C0NF I  DENSE  'HIGH); 

IF  LOWVOTE  >=  3 

(GETPROP  EVENTMATCH  ' P2C0NF I  DENSE )  =  ’HIGH 
THEN  ( P U T P R 0 P  E V E N T M A T C H  ' P 2 C 0 N FIDE N C E  ’  L 0 W  )  ; 

( 4:  H  a  v  i  n  g  r  e  v  i  s  e  d  t  h  e  c  o  n  f  i  d  e  n  c  e  w  h  e  n  n  e  c  e  s  s  a  r  y  a  b  o  v  e , 
h y p o t hesi s  r e v i s i o n  t a k e s  p  lace  b e  1  o w ,  ) 


IF  BSSBoard : EXPNUMBER  <=  2 

(GETPROP  EVENTMATCH  '  P2C0NF I  DENSE )  =  'HIGH 
HYPO TRANSFER  =  'NIL 

THEM  (SETQ  HYP0TRAN3FER  'T)(RunR3  ' BSSTEST )  ( 


TOP); 


IF  BSSBoard : EXPNUMBER  <=  2 

( G  E  T  P  R 0  p  E  V  E  N  T  M  A  T C H  ' P  2 C 0 N  FIDE  N  C  E  )  =  ' E  X THIGH 
HYP 0TRAN3FER  =  'NIL 
THEN  (SETO  HYPO TRANSFER  ' T)  (RunRS 


BSSTEST)  (STOP); 


IF  HYPOTRANSFER  =  'NIL 
BSSBoard : EXPNUMBER  >  2 

THEN  (SETQ  HYPOTRANSFER  ' T)  (RunRS  ' BSSHOST ILE )  (STOP) ; 

IF  HYPOTRANSFER  =  'NIL 

T  R  E  N  D  B  o  a  r  ci :  E  X  P  N  LI  M  B  E  R  <  =  2 

THEN  (SETQ  HYPOTRANSFER  ‘T)  (RunRS  '  BSSIJNKNOWN )  (STOP); 

(*  The  contents  of  BSSBoard  can  be  cons i 1 i dated  with  both 
the  C3  Threat  and  threat  to  other  targets.) 


THEN  OUT VAR* ' NO ; 


IF  BSSBoard : EXPNUMBER  >  2 
THEN  OUTVAR* ' YES; 

IF  TRENDBoard: WILLNUMBER  >=  1 

THEN  (Put Value  BSSBoard  'WILLDETECT  (APPEND  BSSBoard : WILLDE 
T E C T  T R E N 0 B o a r d : W ILLOETECT) ) ; 

IF  TRENDBoard :CL0SEN UMBER  >=  1  THEN  (Put Value  BSSBoard  'CLO 
S  E  D  E  T  E  C  T  ( A  P  P  E  N  D  B  S  S  B  o  a  r  d  :  C  L  0  S  E  D  E  T  E  C  T  T  R  E  N  D  B  o  a  r  d  :  C  L  0  S  E  D  E  T  E 
CT) ) ; 


IF  TRENDBoard: FAR NUMBER  >=  1  THEN  (Put Value  BSSBoard  'FAROE 
TECT  ( APPEND  BSSBoard : FARDETECT  TRENDBoard : FARDETECT ) ) ; 


( *  The  o  u  t  p  u  t  s  e  c  t  i  o  n  s  h  o  w  s  o  u  t.  p  u  t  t  o 

THEN  (PRINTOUT  T  T  "EVENT  Considered: 
BSS  "  EVENTMATCH  T  T  "1.  DETECTED: 
P3SITENUM  T  "3.  THREAT:  "  OUT VAR  T 
M A T C H B o a r d  ;  L A U N C HERT  Y PE  T  "  5  ,  0 B .-1 E C T S 
)  MARK* 'NIL; 


M  W  0  a  ri  d  e  x  p  lain  s  .  ) 


UNRESOLVED"  T  T  T  " 

"  P3TIME  T  "2.  BSS:  " 
"4.  LAUNCHER  TYPE:  " 
TRACKED:  "  P30BJNUM  T 


IF  BSSBoard:  WILLDETECT  -•=  'NIL 
THEN  MARK* ' T  (PRINTOUT  T  "6,  VERY  LIKELY  TARGET 
BSSBoard: WILLDETECT)  T); 

IF  MARK  =  'NIL 

B  S  S  B  o  a  r  d  :  C  L  0  S  E  0  E  T  E  C  T  --=  'NIL 
THEN  MARK* ' T  (PRINTOUT  T  "6.  LIKELY  TARGETS:  " 
Bear d:CL0SEDE TECT)  T); 

IF  MARK  =  'NIL 

BSSBoard: FARDETECT  -=  'NIL 
THEN  JJ»RK*'T  (PRINTOUT  T  "6.  POSSIBLE  TARGETS: 


CONVERT 


(CONVERT 


BSS 


u 


( CONVERT 


ir  mrtr.r.  =  tul 

BSSBoard : FAROETECT  -=  'NIL 

THEN  MARK* ' T  (PRINTOUT  T  "6.  POSSIBLE  TARGETS:  "  (CONVERT 
BSS Board : FAROETECT )  T )  ; 

IF  MARK  =  'NIL 

THEN  (PRINTOUT  T  "6.  POSSIBLE  TARGETS:  NONE"  T); 

THEN  (PRINTOUT  T  "7.  EST.  IMPACT  TIME:  "  P3 IMPACTTIME  T  "8. 

CONFIDENCE:  "  (GETPROP  EVENTMATCH  ' P2C0NFI DENCE )  T  T)  (Run 
RS  ' Speculate) ; 

(*  What  about  a  SprculateS  rule  set  for  the  above.) 

IF  EXP LA  I NBoard: COMMENT  ~=  'NIL 
THEN  ( E  V  ALE  X  P  L  A I N  B  o  a  r  d  :  C  0  M  M  E  N  T )  ; 

THEN  ( P R I N T 0 U T  T  T  "I f  y o u  w i s h  f u r t her  e x p 1  a n a t i o n  t y p e  T , 
"  T  "Otherwise  type  NIL  to  proceed."  T)  (SETQ  READ  (RATOM  N 
IL  NIL)); 

IF  READ  =  'T 

THEN  (SETQ  FACTORLIST  (LIST  BSSBoard : EXPNUMBER  'BSSBoard  T 
R  E  N  0  B  o  a  r  d  :  E  X  P  N  U  M  B  E  R  '  T  R  E  N  0  B  o  a  r  d  M  A  T  C  H  B  o  a  r  d  :  E  X  P  N  U  M  B  E  R  '  M  A  T  C  H 
B  o  a  r  d  I  n  t  e  1 B  o  a  r  d  :  E  X  P  N IJ  M  B  E  R  'Intel  B  o  a  r  d  S  V  S  B  o  a  r  d  :  E  X  P  N  U  M  B  E  R  ' 
SYSBoard ) ) , 


IF  READ  =  'T 
0  U  T  V  A  R  =  '  N  0 

THEN  ( R  u n R  S  ' L  0 W R  a  n  k i n  g )  ( R  u n R  S  ' E  x p 1  a i n )  ( S  T  0 P ) ; 


IF  READ  =  'T 
OUT VAR  =  'YES 

THEN  ( R  u  n R  S  'HI  6 H  R  a  n k i n  g )  ( R  u  n R  S  ' E  x  p 1  a i n ) ; 
#0: ( R u  1  e s e t s o u r c e  (1  w  .  5545Z  ) ) 


i,<<-\rxLiu  j.o  < 

Using  $C3Analyst 

RuleSet  C3Analyst 

Last  Edited:  3- Oct- 85  1S;07;46  by 

W  o  r  k  Space  Class:  Rep  o  r  t.  s ; 

Comp i 1 er  Opt i ons :  : 

Temporary  Vars :  AIL  1ST  A2L13T  A3LIST  A4LIST  B1LIST  B2LIST 

B3LIST  B4LIST  STATUS  METALIST, • 

Control  Structure:  DOALL: 

*  *  *  *  *  *  *  * 


(*  CSAnalyst  is  invoked  whenever  an  SYS  report  about  a  C3  n 
ode  is  received.  CSAnalyst  puts  together  the  lists  that  corn 
prise  the  8  C3  paths  which  are  then  handed  to  SY SC heck  to'  d 
etermine  what  their  status  is,  which  is  maintained  by  C3Boa 
r d  .  At  t h e  c o rn p  1  e t  i  o n ,  S Y S B o a r d  is  f  i  11  e d  w  i  t h  t. h e  C 3  n e t w o 
r  k  v  aria  b  1  e  s  a  n  d  t  h  e  C  0  M  M  E  N  T  a  m  rn  e  n  d  e  d  . ) 


TGT4 

TGT4 

TGT4 


TGT6) ) 

TGT5  ) j 
TGT2  TGT6  ) ) 


(TGT3  TGT4  TGT2  TGT5) ) 
( T  U  T  3  T  G  T  2  T  6  T  6  ,i  ,i 


i TGT3  TGT2 
(  TGTS  TGT2 
(TGT3  TGT2 


TGT5) ) 

TGT4  TGTS) ) 
TGT 4  TGT5 )  ) 


B2LIST  A3LIST  B3 


LIST 


THEM  CSETO  BILIST  ' f TGTS  TGT 4  TGTS ) ) 

(SETij  AIL  I  ST  '  (T6T3  TGT4  TGT5 ) ) 

CSETO  B2LIST  1 (TGT3  TGT4  TGT2  TGT 6) ) 

(SETO  A2LIST  ’ (TGTS  TGT4  TGT2  TGT5) ) 

CSETO  B3LIST  ' (TGTS  TGT2  TGTS)) 

C  SET 0  A 3 L I S T  ' (T G T 3  T G T 2  TGTS ) ) 

CSETO  B4LIST  '(TGTS  TGT2  TGT4  TGTS)) 

CSETO  A4LIST  '(TGTS  TGT2  TGT  4  TGT5) ) 

CSETO  METALIST  '  f AIL  I  ST  BILIST  A2LIST  B2LIST  A3LIS' 
LIST  A4LIST  B4LIST) ) 

S  Y  S  B  o  a  r  d  :  A  Z  E  R  0  *  @  3  Y  S  o  a  r  d  :  B  Z  E  R  0  0 

S  Y  S  B  o  a  r  d :  A  P  A  R  T I A  L  +  0  S  Y  S  6  o  a  r  d  :  B  P  A  R  T I A  L  «•  0 
S  Y  S  B  o  a  r  d  :  A  F  U  L  L  *■  O  S  Y  S  B  o  a  r  d  ;  B  F  U  L  L  *  0 : 

THEM  (SETO  STATUS  'FULL) 

( RunRS  ' SYS Check ) 

S  Y S B o a r  d  :  A G S M !J M BER'-l  S Y S B o a r d  :  B G S M U M B E R *  1 ; 

{ *  D  e  f  a  u  1 1  C  o  n  d  i  t  i  o  n  a  b  o  v  e  s  e  t  A  G  o  M  U  M  B  E  R  a  n  d  B  G  S'  M  U  M  B  E  R 

to  one,  It  is  modified  in  the  six  rules  below.) 

I F  S  Y  S  B  o  a  r  d  :  A  F I J  L  L  >  =  1 
THEM  S Y S B o a r  d  :  A G S M LI M BEF>4 ; 

IF  SYSBoard : BFULL  >=  1 
THEM  S  Y  S  B  0  a  r  d  :  B  G  3  M IJ  M  B  E  R + 4  : 

I F  S  Y S B o a r d : APART  I A L  > =  2 
3  Y  S  B  o  a  r  d  :  A  F  IJ  L  L  =  0 
THEN  S  Y S B  :■  a r  d  •  A G S N U M BER<-3: 


sYSBoara : acull  =  0 
THEN  SYSBoard ; AGSNUMBER-3; 

IF  SYSBoard  :  E-PART  I AL  >=  2 
SYSBoard : BFULL  =  6 
THEN  S  Y S B o  a  r  d : B G S  N  U M B  E  R  «■  3  j 

IF  SYSBoard : APART  I AL  =  1 
SYSBoard : AFULL  =  0 
THEN  S  Y  S  B  o  a  r  d  :  A  G  S  N  U  M  B  E  R  -  2  j 

IF  SYSBoard : BPART I AL  =  1 
SYSBoard ; BFULL  =  0 
THEN  S  Y S &  o a r d : B 6 S N U M B E  R - 2 ; 

THEN  (PRINTOUT  T  T  "this  is  AGSnumtaer:  "  SYSBoard : AGS NUMBER 
T  "This  is  B G S n u rn b e r  :  "  S Y S B o a r  d  :  B G S N IJ M B E R  T ) 

(  S  E  T  0  F  N  IJ  M  B  E  R  S  Y  S  B  o  a  r  d  :  B  6  S  N  U  M  B  ER  ) 

( S ETQ  s N IJ M B E R  S Y S B o a r d  :  A G S N IJ M B E R ) 

( R  u  n  R  S  '  C  o  rn  b  i  n  a  t  o  r  i  a  1 ) ; 

IF  SUMNUMBER  =  4 

THEN  (SET  Q  C  3 C  0  M M ENT  ' ( " C 3  N  e  t w  o r k  0  a p ability:  FULL"  T ) ) ( P  u 
t  V  a  1  u  e  S  Y  S  B  o  a  r  d  '  0  0  M  M  E  N  T  (  A  P  P  E  N  D  (  G  e  t  V  a  1  u  e  S  Y  S  &  o  a  r  d  '  C  0  M  hi  E  N 
T)  C 3COM ME NT ) ) ; 

IF  SUMNUMBER  =  3 

THEN  (SETQ  C3C0MMENT  '("OS  Network  Capability:  PART  I AL " T ) ) 

( P  u  t  V  a  1  u  e  S  Y  S  B  o  a  r  d  '  0  0  hi  M  E  N  T  ( A  P  P  E  N  0  (  G  e  t  V  a  1  u  e  S  Y  S  B  o  a  r  d  '  C  6  M 
ME NT)  03 COMMENT ) ) ; 

IF  SUMNUMBER  =  2 

THEN  ( S E T Q  C 3 C 0 M M ENT  ' ( " C 3  H e t w o r k  C a p a bili t y :  CRIPPLED"  T ) 
)  ( P  u  t  V  a  1  u  e  S  V  S  &  o  a  r  d  '  C  0  M  M  E  N  T  ( A  P  P  E  N  0  (  G  e  t  V  a  1  u  e  S  V  S  B  o  a  r  d  '  C 
OMMENT )  C3C0MMENT  ) ) ; 

IF  SUMNUMBER  =  1 

THEN  ( S E T Q  C 3 C 0 M M ENT  ' ( " C 3  N e t w o r k  C a p abi 1  it y :  0 UT"  T) ) 

(  P  u  t  V  a  1  u  e  S  Y  S  E*  o  a  r  d  1  C  0  M  M  E  N  T  ( A  P  P  E  N  D  (  G  e  t  V  a  1  u  e  S  Y  S  B'  o  a  r  d  1  C  U  M 
MENT)  C 3 COMMENT)),' 

if  cf  (  R  u  1  e  S  e  1 3  o  u  r  c  e  "  G  W  U  8  .  z  I  [  :  ,  P  G  o  .  2  9 "  ) 

21- 

NIL 

21- 

NIL 

21- 

NIL 

21- 

NIL 

21- ( RED 0  y 7 ) 


us  my  •K'Z'DUdr  u 

RuleSet  C3Board 

Last  Edited:  3- Oct- 85  18:09:00  by 

W  o  r  k  S  p  a  c  e  C 1  a  s  s  :  R  e  p  o  r  t  s  • 
Compiler  Options:  ; 
Temporary  Vans:  ; 

C o ri t r o  1  St r u c t u r e  :  0 0 A L L ; 
*  *  *  *  *  * + * 


( *  C  3  B  0  ARD  u  p  d  a  t  e  s  t  h  e  n  u  m  b  e  r  o  f  C  3  p  a  t  h  lists  w  h  i  c  h  falls 
into  the  categories  of  FULL,  PARTIAL  or  ZERO  for  both  AGS  a 
nd  BGS  path  links,) 

IF  TAG  =  'BGS 
STATUS  =  'FULL 

THEN  S V S B o ard : BFULL- ( P L U 8  S Y S B o a r d : BFULL  1 ) ; 

IF  TAG  =  'BGS 

STATUS  =  'PARTIAL 

THEN  S V S B o a r d : BPARTIAL- ( P L U S  S V S B o ard : BPARTIAL  1 ) ; 

IF  TAG  =  ' BGS 
STATUS  =  'ZERO 

THEN  S  Y S B o a r  d  :  B Z  E R 0 *  ( P L IJ S  S  Y S B o a r  d  :  BZER 0  1 ) ; 

IF  TAG  =  'AGS 
STATUS  =  'FULL 

THEN  S Y S B o a r d  :  A F U LL- ( P L U S  S Y S B o a r d  :  AFULL  1 ) ; 


IF  tag  =  'ags 

STATUS  =  'PARTIAL 

THEN  S V S R n a r d  :  A P  A R  T  I  A i_ -  (  PL U 8  S V 0 P. n a r  d  ;  APART  I AL  i  ) 

IF  TAG  =  'AGS 
STATUS  =  'ZERO 

THEN  S  Y  S  B  o  a  r  d  :  A  Z  E  R  0  *  ( P  L  U  S  S  Y  S  B  o  a  r  d  :  A  Z  E  R  0  1 )  ; 

#  & ( Rule  S  e  t  S  o u r c e  " G W U  0 . z I [ :  , P G 8 . 3  0 " ) 


NIL 

2 3 -m;  REDO  97) 


us  my  4-l-uihu  moi-ur  ia  i 

RuleSet  Combinatorial 

Last  Edited;  3-Gct-S5  13;  10; 35  t>y 

Workspace  Class:  Sensors ; 
Comp i 1 er  Opt i ons :  ; 

Temporary  Vars:  ; 

Control  Structure:  D01 ; 
******** 


(*  This  rule  set  takes  two  facts,  a  more  important  fact  kno 
wn  as  FNUMBER  that  is  abstracted  to  4  states,  and  a  less  im 
portant  fact,  SNUMBER  also  known  in  4  discrete  states,  that 
aret  then  combined  to  form  a  discrete  state  known  as  SUMNU 
M  B  E  F:  t  h  a  t  i  s  a  t  a  h  i  g  h  e  r  1  e  v  e  1  o  f  a  b  s  t  r  a  c  t  ion.) 

IF  FNUMBER  =  4 
SNUMBER  >  2 

THEN  (SETQ  SUMN UMBER  4); 

IF  FNUMBER  =  4 

THEN  (SETQ  SUMNUMBER  3); 

IF  FNUMBER  »  3 
SNUMBER  >  2 

THEN  (SETQ  SUMNUMBER  3); 

IF  FNUMBER  =  3 

THEN  (SETQ  SUMNUMBER  2) ; 

IF  FNUMBER  =  2 
SNUMBER  =  4 

THEN  (SETQ  SUMNUMBER  3); 

IF  FNUMBER  =  2 
SNUMBER  >  1 

THEN  (SETQ  SUMNUMBER  2); 

IF  FNUMBER  =  2 

THEN  (SETQ  SUMNUMBER  1); 

IF  FNUMBER  =  i 
SNUMBER  >  2 

THEN  (SETQ  SUMNUMBER  2); 

IF  FNUMBER  =  1 

THEN  (SETQ  SUMNUMBER  1); 

#&(RuleSet Source  "GWU0 . zl f : . P68. 31" ) 


29* (PP  CONVERT) 


(CONVERT 

[LAMBDA  (C3LIST)  <*  edited:  "  3- Sep-85  14:02") 

(PROG  (MATCHL 1ST  MATCHPOINT  MATCHOUT  MATCH VAR) 

CONVERT  takes  a  list  or  a  single  item  expressed  in  the  property  t 
ag  format  of  SENTINEL  such  as  TGT3,  LS5  or  TC-iT 04  and  converts  them  to  a  list  o 
r  object  that  is  composed  of  the  name  of  the  object  such  as;  ERF  KAPUSTINYAR  B 
SS4  etc,) 


(SETQ  MATCHL 1ST  C3LIST) 

( COND 

((NOT  (LISTP  MATCHL  1ST')) 

(SET 6  MATCHOUT  (GETPROP  MATCHL 1ST 

(QUOTE  NAME))) 

(RETURN  MATCHOUT))) 

( COND 

((NULL  (COR  MATCHL 1ST)) 

(SETQ  MATCHOUT  (GETPROP  (CAR  MATCHLIST) 

(QUOTE  NAME))) 

(SETQ  MATCHLIST  NIL))) 

LOOP (COND 

((NULL  (CAR  MATCHLIST)) 

(RETURN  MATCHOUT))) 

(SETQ  MATCHPOINT  (CAR  MATCHLIST)) 

(SETQ  MATCH VAR  (GETPROP  MATCHPOINT  (QUOTE  NAME))) 
(SETQ  MATCHOUT  (APPEND  (LIST  MATCH VAR) 

MATCHOUT)) 

(SETQ  MATCHLIST  (CDR  MATCHLIST)) 

(GO  LOOP]) 

(CONVERT) 

30* 

NIL 
30  * 

NIL 

30* 

NIL 

30* 

NIL 

30* 

NIL 

30* 

NIL 
3  0  * 

NIL 

30* 

NIL 

30* (REDO  97) 


lr  UUUNIKYNUKl  =  0 

THEN  (SETQ  COUNTRY 

■NOBODY); 

IF  COUNT RYNUM  =  9 
THEN  (SETQ  COUNTRY 

'NOPLACE); 

IF  COUNTRYNUM  =  10 
THEN  (SETQ  COUNTRY 

■NORTHLAND); 

IF  COUNTRYNUM  =  11 
THEN  (SETQ  COUNTRY 

■OUTBACK); 

IF  COUNTRYNUM  =12 
THEN  (SETQ  COUNTRY 

■OVERTHERE); 

IF  COUNTRYNUM  =  13 
THEN  (SETQ  COUNTRY 

■SOMEBODY); 

IF  COUNTRYNUM  =14 
THEN  (SETQ  COUNTRY 

■SOMEONE); 

IF  COUNTRYNUM  =  15 
THEN  (SETQ  COUNTRY 

■SOMEPLACE); 

IF  COUNTRYNUM  =16 
THEN  (SETQ  COUNTRY 

' SOUTHLAND) ; 

IF  COUNTRYNUM  =  18 
THEN  (SETQ  COUNTRY 

■TOPLANO)  ; 

IF  COUNTRY NUM  =20 

THEN  (SETO  COUNTRY  'WESTLAND)  ; 

( R u  1  e S e t S o u r  ce  "  L  V U Q .  z  I  [ :  .  P 9 B  . 
3  6 1- 
NIL 
36+ 

NIL 

36+ 

NIL 

36+ 

NIL 

36+ 

NIL 

36+ 

NIL 

36+ 

NIL 

36+ 

NIL 

36+ CREDO  97) 


using  tuc L-eu uorieuK 

RuleSet  DetectCheck 

Last  Edited:  3-Oet-S5  1S;40;5S  by 

Workspace  Class:  Boards; 

Compiler  Options:  ; 

Temp o r  a  r  y  V  a  r  s :  T  A  0 LIST  HEAD  I N 8  M  ARK  HI  V A  L  C 0  M  M  ENT; 

Control  Structure:  DOALL; 

*  +  + 


(*  DetectCheck  processes  the  BSSTAG  and  the  HIVALTAG  of  the 
1 a  u  n c  h  site  b y  c  a  1 1 i n g  o n  H  e  a  d i n  g C h  e  c k  a n  d  T  a r  get  u h e  c k  r  e  s p 
actively .  The  values  obtained  are  posted  on  the  DetectBoard 
for  the  BSS  sites  and  on  the  TRENDBoard  for  High  Value  Tar¬ 
gets  .  ) 

THEN  TA6L I  ST* ( GET PROP  MATCHBoard : P2LS  ' BSSTAG ) 
HEADIN6*MATCHBoard : LSHEADING 
D  e  t  e  c  t  B  o  a  r  d  :  E  X  P  N IJ  M  B  E  R  *  1 ; 

IF  HEADING  =  'XXX 

THEM  DetectBoard : EXP NUMBER*® 

T F: E N D B o a r d :  E X P N U M BER* 0 

DetectBoard :  COMMENT  * '  ( PR  I NTOUT  T  "  NO  HEAD  I NG  I  nf  orrnat  i 
on  available  yet,"  T  "Cannot  predict  BSS  detection  possibil 
ities."  T)(ST0P); 

THEN  ( R u n  R S  ' H  e  a  d i n  g  C  h  e  c k )  M A R K * ' T ; 

f*  After  running  Heading Check  various  properties  such  as  WI 
LLDETECT,  CLOSEDETECT  arid  FARDETECT  are  analyzed.) 

IF  DetectBoard  :WI  LLDETECT  --=  'NIL 
THEN  D e t e c t B o a r d : E X P N U MBER*4 

(SET Q  DETECT C 0 M M  ( C 0 N V  E  R  T  ( G  e  t  V a  1 u e  D e  t  e  c t B o a r d  ' W I L  L  D  E  T  E  C 
T)))  DetectBoard :CQMMENT* ' (PRINTOUT  T  "BSS  Detection  Oppo 
r t u n  itie s  a r  e  :  V E R V  S T F: 0 N 6 ”  T  " 0 c c u r  i n q  a t  B S S  sites:  "  D  E  T 

ECT COMM  T); 

IF  DetectBoard : W I LLDETECT  =  'NIL  DetectBoard: CLOSEDETECT  •- 
=  'NIL  THEN  D e t e c t B o a r d : E X P N U M BER* 3 ( S E T Q  DETECT C 0 M M  ( C 0 N V E R 
T  ( G  e  t  V  a  1 u  e  0  e  t  e c t B o a r  d  '  C  L  0  S  E  D  E  T  E C  T ) ) ) D  e  t  e c t  B o  a  r d : C  0  M M ENT* 
'(PRINTOUT  T  "BSS  Detection  Opportunities  are:  STRONG"  T  "0 
c  u r  r i n  g  a t  B S  S  sites:  "  D  E  T  E  C T  C  0  M M  T ) ; 

IF  DetectBoard : W I LLDETECT  =  'NIL 
DetectBoard : CLOSEDETECT  =  'NIL 
DetectBoard : FARDETECT  -=  'NIL 
THEN  D  e t e  c t  B o  a r d : E  X P N U M BER* 2 

( S ETC  D E T E C T C 0 M M  ( C 0 N V E R T  ( G e t V a  1 u e  Dete c t B o a r d  'FARDETE C T 

DetectBoard: COMMENT*’ (PRINTOUT  T  "BSS  Detection  0 
pportumt  les  are:  POOR"  T  "Coverage  of  these  BSS  sites  devi 
ates  from  the  reported  heading  by "up  to  10  degrees:  "  DETEC 
TCOMM  T);  ' 


IF  DetectBoard  :  EXPNUMBEF:  =  1 

THEN  (SET 0  DETECT C 0 M M ( C 0 N V E R T  ( 6 e t V alue  D e t e c t B o a r d  ' NEARP 
T  ) ) ) 

Date c t b o a r d :  C 0 M M E N T *  *  ( P F;  I N T 0 U T  T  "  B S S  D e t e c t  i o n  0 p p o r t u n  i t 
es  are:  VERY  POOR"  T  "The  closest  BSS  site  coverage  is  at: 

"  DETECTCOMM  T) ; 

(*  Special  case  when  DETECTPT  is  empty  it  is  set  to  0) 

IF  DetectBoard: DETECTPT  =  'L  THEN  DetectBoard : DETECTPT *0; 

( *  Target-Check  is  run  to  determine  what  G3  targets  fall  int 
o  the  category  of  WILLQETECT,  CL08EDETECT  and  FARQETECT .  Re 
s  u Its  are  i n t  e r  p  r e  t e  d  b e 1 o w . ) 

THEN  T  A6L I ST* ( GETPROP  MATCHBoard : P2LS  * HIVALTAG) 

(  F:  u  n  R  S  1  T  a  r  g  e  t.  C  h  e  c  k ) ; 

IF  TRENDBoard: ttILLNUMBER  >=  1 

THEN  TRENDBoard : H I VALNUMBER+4  MARK* ‘ N I L ( SETQ  H I VALCOMMENT 
1  ( "  T  h  r  e  a  t  t-  o  C  3  N  o  d  e  s  :  V  E  R  V  HIGH"  T ) )  ( P  u  t  V  a  1  u  e  D  e  t  e  c  t  B  o  a  r  d 
‘ C 0 M M ENT  f A P P E N D  ( 6 e t V a  1 u e  D e t e c t B o a r d  1 C 0 M M ENT)  HI V A L C 0 M M E 
NT)); 


IF  TRENDBoard : CLOSENUMBER  >=  i 
MARK  =  ' T 

THEN  T R E N 0 B o a r d  :  H I V A L N U M B  E  R  *  3  M A R K ♦'NIL  ( S ETQ  HI  V A L C 0 M M E N T 
'  ( "Thre a t  t o  C 3  N o d e s :  HIGH"  T  ) ) ( P u t V alue  0 e t e c t B o a r d  ' C 0 M M 


E N T  ( A P P E N D  ( G e t V a  1 u e  Oete c t B o a r d  ' C 0 M M ENT)  HI V A L C 0 M M E N T ) ) ; 


IF  TRENDBoard : FARNUMBER  >=  1 
MARK  =  'T 

THEN  TRENDBoard  :  H I  VALNUMBER*2  MARK*  'NIL  ( SETQ  H I  VALCOMMENT 
'  ("Thre a t  t  o  C 3  N  o d e  s :  L  0 W "  T )  )  ( P  u t  V  a  1 u  e  D  e  t  e  c  t  B  o  a r  d  ' C  0 M  M  E 
NT  (APPEND  (Get Value  DetectBoard  'COMMENT)  H I VALCOMMENT) ); 


IF  MARK  =  'T 

THEN  TRENDBoard: HIVALNUMBER*!  (SETQ  HI VALCOMMENT  '("Threat 
t  o  C  3  N  o  d  e  s  :  V  E  R  Y  L  0  W "  T  ) )  ( P  u  t  V  alue  Detect  B  o  a  r  d  1  COM  M  E  N  T  ( 
A P P E N D  ( G e t V a  1 u e  D e t e c t B o a r d  1 C 0 M M ENT)  HI V A L C 0 M M E N T ) ) ; 

THEN  (PRINTOUT  T  "These  sites  will  detect:  "  (CONVERT  Detec 
t Board: WILL DETECT)  T  "These  site  could  detect:  "  (CONVERT  D 
e  t  e  c t  B o  a r  d : C  L  0  8  E  0  E  T  E C  T )  T  " T  h e  s e  s i t  e  w ill  p r  o b a b 1 y  n  o  t  d  e  t 
e  c  t :  "  ( C  0  N  V  E  R  T  D  e  t  e  c  t  B  o  a  r  d  :  F  A  R  D  E  T  E  C  T  )  T  "  T  h  e  B  S  3  N  u  m  b  e  r  f  o 
r  ADS2  is:  "  DetectBoard : DETECTPT  T  "the  near  point  is:  "  ( 
CONVERT  DetectBoard : MEARPT )  T  "with  a  diference  of  "  Detect 
Board : HEARD  I FF  T  "degrees  from  the  reported  HEADING."  T ) ; 


THEN  ( E  V  A  L  ( G  e  t  V  a  1 u  e  0 e t  e  c t  B o  a  r  d  1 C  0  M M  E  N T ) ) ; 
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(EVENTCHECK 

[LAMBDA  NIL  (*  edited;  ”io-Oct-S5  17:18"i 

(PROG  (MATCHLIST  MATCHPOINT  MATCHTIME  BSSTIME) 

When  no  ADS  2  report  can  be  matched  to  a  previous  AD  SI  report; 
EVENTCHECK  lets  the  user  Know  what  events  are  there  in  the  EVENTLIST,  which 
ones  are  not  yet  matched,  and  which  ones  had  satellite  coverage  incompatibility 
with  the  reported  launchsite.  TIMECHECK  is  also  invoked  to  delete  any  events  from 
the  active  list  whose  AO S 2  reports  are  overdue,  Finally,  EVENTCHECK  permits  the 
user  to  match  any  previously  unmatched  report.  This  should  be  used  mainly  in  the 
training  mods,) 


(CO  HD 

((NULL  EVENTLIST) 

(RETURN  (printout  T  T 

"No  event  reported  since  SENTINEL  DECISION  AID 
was  initialized." 

T ) ) ) 

(T  (printout  T  T 

"These  are  the  past  EVENTS  since  SENTINEL  was  initialized: 

it 

EVENTLIST  T  T))) 

(SETO  MATCHLIST  EVENTLIST) 

(SETQ  TESTLIST  NIL) 

(+  TESTLIST  win  contain  all  the  AD  Si  events  which  have  not  yet  be 
en  matched  to  an  ADS 2  report,  The  loop  checks  all  of  the  events  one  a.t  a  time  to 
see  if  they  have  been  matched.  For  matched  events  Pi  TIME  of  the  EVENT  pro  pert 
y  list  is  NIL) 


LOOP [C ON 0 

((NULL  (CAR  MATCHLIST)) 

(COND 

((NULL  TESTLIST) 

( RET  IJ  R  N  ( printout  T 

"All  eve  n  t s  h  a v  e  a  1  r  e  a d  v  b  e  e  n  w ate  h  e  d . " 

T 

"SENTINEL  co  n e 1 u  d e  s  t  his  i s  a  s  p u r i o u  s  e  v e n  t . " 

T 

"  N  o  f  u  r  t  h  e  r  p  r  o  c  e  s  s  i  n  q  u  n  d  e  r  w  a  y  .  " 

T  T ) ) )  ' 

(T  (RETURN  (printout  T  T 

"These  are  the  events  which  have  not  been  matched  to  an  ADS 
2  Repor t . 

T  T  TESTLIST  T] 

(SETO  MATCHPOINT  (CAR  MATCHLIST)) 

(SETO  MATCHTIME  ( GET PROP  MATCHPOINT 


(SETQ  BSSTIME  (GETPROP  MATCHPOINT  (QUOTE  PIT  I  ME)) 

) 

[COND 

((NULL  MATCHTIME) 

(COND 

((NOT  (NULL  BSSTIME)) 

(SETQ  TESTLIST  (APPEND  TESTLIST 

(LIST  MATCHPOINT] 
(SETQ  MATCHLIST  (COR  MATCHL 1ST) ) 

(GO  LOOP)) 

(*  This  procedure  checks  on  satellite  compatibility:  i,e,  if  .ADS  2  repo 
rt  came  from  the  AD S MO R T H  satellite,  the  LATITUDE  of  the  matched  launch  site  s 
huuld  Ei£  Cl it'.'.'w » n  IS  and  23,5  degrees',  similarly  for  the  AD 3 SOUTH,  the  LATITUO 
E  of  the  matched  report  should  be  between  27,5  and  40  degrees,  Note  that  there  is 
a  small  area  of  overlapping  coverage  around  28  degrees,)" 


(PROG  ( P1LS  LATLNCH  MATCHPOINT  MATCHLIST  FLAGLIST) 

(SETQ  MATCHLIST  TESTLIST) 

(SETQ  FLAGLIST  NIL) 

LOOP [COND 

((NULL  (CAR  MATCHLIST)) 

(COND 

((NULL  FLAGLIST) 

(RETURN)) 

NIL 

(T  (RETURN  (printout  T  T 

"These  events  were  not  matched  because  the  reported 
LATITUDE  of  their  launch sites  did  not  match  the 
N 0 R M A L  A D S 2  s a t. e  11  i  t e  c o v eraqe  :  " 

T  FLAGLIST  T] 

(SETQ  MATCHPOINT  (CAR  MATCHLIST)) 

(SETQ  P'lLS  (GET PROP  MATCHPOINT  (QUOTE  P1LS))) 
(SETQ  LATLNCH  (GETPROP  P1LS  (QUOTE  LAT))) 

(*  If  all  the  events  are  matched:  TESTLIST  is  NIL;  but  it  still  crunche 
s  through  this  code,  Therefore,  LATLNCH  must  De  set  to  a  number  so  that  the  GfiE 
ATEfiP  and  LESSP  functions  can  operate) 


(COND 

((NULL  LATLNCH) 

(SETQ  LATLNCH  28))) 

[COND 

((EO  ( GNC  SENSOR NUMBER ) 

(QUOTE  8)) 

(SETQ  SEHSORCAP  (GETPROP  (QUOTE  ADSSOUTH) 

(QUOTE  CAPABILITY) ) ) 

(SETQ  REASONOUT  (GETPROP  (QUOTE  ADSSOUTH) 

( QUOTE  REASON  i ) ) 


(,  UUNU 

( (LESSP  LAUNCH  (QUOTE  £7.5)) 

(SETQ  FLAGLIST  (APPEND  FLASH  ST 

(LIST  MATCHPO I  NT ] 

[COND 

( ( E  Q  ( 6  N  C  S  E  N  S  0  R  N  U  M  B  E  R ) 

(QUOTE  N)) 

(SET Q  8ENS0RCAP  (GET PROP  (QUOTE  ADSNORTH) 

(QUOTE  CAPABILITY))) 

(SETQ  REASON OUT  (GET PROP  (QUOTE  ADSNORTH) 

(QUOTE  REASON))) 

(COND 

( (GREATEftP  LATLNCH  (QUOTE  £9.5)) 

(SETQ  FLAGLIST  (APPEND  FLAGLIST 

(LIST  MATCHPO I  NT] 
(SETQ  MATCHLIST  (COR  MATCHLIST)) 

(GO  LOOP)) 

(TIME  CHECK)  (*  time  check  is  invoked;  and  th 

e  user' is  permitted  to  match  the  AD  3  2  Report  to  anv  unmatched  (AD 31}  EVENT,} 
(COND 

((NULL  TESTLIST) 

(RETURN)) 

(T  (printout  T  T  "Anv  of  the  unmatched  events:  "  T 
TESTLIST  T  T 

"  c a n  n o w  b e  rn a t c h e d  w i  t h  t h e  r ecei v e d  A D S £  Re p o r  t . " 

T 

" T v p e  in  NIL  it  y o u  d o  n o t  w a n t  t o  m a t c h  t h i s  r e p o r t . " 

T 

“Or,  type  in  the  complete  EVENTnumber  of  the  EVENT  you  wish 
to  match  it  with." 

T 

"DO  NOT  put  par an theses  around  your  r  esponse  !  !  ! " 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

(*  With  a  NIL,  the  user  exits  out 

of  the  program) 

( COND 

((NULL  READ) 

(printout  f  "EVENT  returned  unmatched."  T)) 

(T  '  (COND 

([HOT  (NULL  (GETPROP  READ  (QUOTE  PIT  I  ME  ] 
(SETQ  EVENTMATCH  READ) 

(*  MATCH  is  made  by  removing  Pi  TIME  from  the  EVENT  property  li 
st  and  then  running  the  AOSSConfidence  rule  set;  before  this  is  done  the  preiimma 
ry  steps  normally  done  by  ADS2HAN0LEF;  are  duplicated  here,) 


(  R  E  M  P  R  0  P  E  V  E  N  T  M  A  T  C  H  (  Q IJ  DTE  P 1 T I M  E ) ) 
f P  U  T  P  R  0  P  E  V  E  N  T  M  A  T  C  H  ( 0  IJ  DTE  P  £  T I M  E ) 

P  £  T  I M  E  ) 


\  \  n  *_■  l_  nLnu  y 

(printout  T  “EVENT  returned  unmatched."  T)) 
(T  (COND 

([NOT  (NULL  (SET PROP  READ  (QUOTE  PIT  I  ME] 
(SETQ  EVENTMATCH  READ) 


(+  MATCH  is  made  by  removing  PI  TIME  from  the  EVENT  property  li 
st  and  then  running  the  ADSSConfidence  rule  set;  before  this  is  done  the  prelimlna 
ry  steps  normally  done  by  AD 3 SH AND LE R  are  duplicated  here.) 


(REMPROP  EVENTMATCH  (QUOTE  PIT  I  ME)) 
(PUTPROP  EVENTMATCH  (QUOTE  P2T I  ME ) 

P2TIME) 

( P u t V a  1 u e  MAT C H B o a r d  ( Q U 0 T E  LA U N 0 H S I T E ) 
(GETPROP  EVENTMATCH 

(QUOTE  P1LS) ) ) 

( P  u  t  V a  1 u e  MATCH B o  a  r d  ( 0  U 0 T  E  P  2  L S ) 

(GETPROP  EVENTMATCH 

(QUOTE  P 1 L S ) ) ) 

( P  u  t  V  a  1  u  e  MAT  C  H  B  o  a  r  d  ( Q IJ  0  T  E  R  P  T  S  E  N  S  0  R  0  A  P ) 
SENSORCAP) 

(Put Value  MATCHBoard  (QUOTE  OUT AGER EASON) 
REASONOUT) 

( P  u t V  a  1 u e  MAT C  H  B o  a  r  d  ( 0 U 0  T  E  L  S H E  A  D I N G ) 
P2HEADING) 

( P u t  V a  1 u  e  MAT C  H  B o a r d  ( 0  U 0 T  E  L  S B S S ) 

P2BSS) 

( R  u  n  R  S  ( Q  U  0  T  E  S  e  n  $  o  r  C  h  e  c  k ) ) 

( R  u n  R  S  ( Q U 0 T  E  Detect C  h  e  c k ) ) 

( R u n R S  ( Q  U GTE  A  D  S 2 C  o n  f i d e  n c  e ) ) ) 

(T  (printout  T 

" I N C  0 R  R  EOT  E  V  E  N  T  N U M B  E  R  t  y p e  d  i n . " 

T  "what  was  read  in  is:  " 

READ  T  T 

"Re  s  p  o  n  s  e  M  U  S  T  b  e  a  N I L  o  r  t  h  e  E  V  E  N  T  n  u  m  b  e  r ,  " 

T 

"In  t  h  i  s  f  o  r  m  :  E  V  E  N  T  3  ( e  x  a  m  p  1  e )  " 

T  "Do  not  use  parentheses  "  T 
"  E  V  E  N  T  C  H  E  C  K  i  n  v  o  k  e  d  a  q  a  i  n  . " 

T  )  (*  if  incorrect  response  is  typed  i 

n.  the  user  is  made  aware  of  the  situation  and  this  procedure  is  invoked  again,) 

(EVENTCHECKJ ) 

(EVENTCHECK) 


NIL 
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us  my  ocxpiam 
RuieSet  Explain 

Last  Edited:  3-Oct-S5  1S:27;0©  by 

W  o  r  k  S  p  a  c  e  C 1  a  s  s  :  B  o  a  r  d  s ; 

C  o  hi  pile  r  0  p  t  i  o  n  s  : 

Temp  o  r  a r y  V a  r  s :  M  ARK  REA  D  0 U T  V A  R ; 

Control  Structure:  DOALL; 

+  *  *  +  *  :+: 


(*  Explain  permits  the  MWO  to  access  2  layers  of  explanatio 
n  when  answering  ADS-2  reports.  Explain  contains  the  higher 
,  abstract  level  of  explanation  which  can  be  found  in  the  CO 
MMENT  of  each  blackboard.  Explain  calls  on  Explains  to 

P  r  o  v i d  e  the  s  e  c  o  n  d ,  m  o r  e  details  d  1  a y  e  r  ,  W H Y  q u  e  s  t i o  n s 


-  .1  »-  .  . 


answer  eu  rj  y  exp  i-a  in,  nuw  quest  luns  answereu  uy  explains, 
Hi!  response  exits  the  program . ) 


IF  EXPLAI NBoard:  COMMENT  -•=  'MIL 
THEM  ( EVAL  EXPLAI NBoard : COMMENT ) ; 


THEM  (PRINTOUT  T  T  "Explanation  for  ADS-2  processing  is  in 
t w o  1  a y ers . "  T  "The  firs t ,  a b s t r a c t  1  a y e r  c a n  b e  a c cesse d  b 
y  typing  in"  T  "WHY  followed  by  a  carriage  return,  <CR>"  T 
"The  second  detailed  layer  can  be  accessed  from"  T  "the  fir¬ 
st  la y e r  b y  t y p i n g  i n  H 0 W  < C R >  . "  T  " T y p i n g  M 1 L  < C R >  e x i t s  t 
he  program,"  T  T  "Type  in  WHY  or  MIL  now;  "  T) 

MARK*  'MIL 

(SETQ  READ  (RATOM  NIL  NIL)); 


IF  READ  =  'NIL 
THEN  (STOP); 


IF  READ  =  'WHY 

THEM  OUTVAR* EXPLAI NBoard : FACTOR!  MARK*  '  T 

( E  V  A  L  ( G  e  t  V  a  1  u  e  ( E  V  A  L  0  iJ  T  V  A  R )  ’  C  0  M  M  E  M  T ) ) ; 


IF  MARK  =  'NIL 

THEN  (PRINTOUT  T  "INCORRECT  RESPONSE  RECEIVED 
(RunRS  ' Explain ) ; 


T) 


THEN  (PRINTOUT  T  T  "Type  in  WHY  for  more  top  layer  exp  Ian at 


exit:  Type  in  response:  "  T)  MARK* 'NIL 
( SETQ  READ  ( RATOM  NIL  N I L ) ) ; 


IF  READ  =  'HOW 

THEN  (SETQ  FACTOR  EXPLAI NBoard : FACTOR!) 
(RunRS  ' Explains) 


w 


_ : 


i  u 


ir  Ktwu  =  nuv,' 

THEN  (SETQ  FACTOR  EXPLA I NBoard : FACT0R1 ) 

(RunRS  ‘Explains) 

(PRINTOUT  T  T  "Type  WHY  to  continue  inquiry:  NIL  to  exit"  T 
j  (SETQ  READ  (RATOM  NIL  NIL)); 

IF  READ  =  ‘NIL 
THEN  (STOP); 

IF  READ  =  ‘WHY 

THEN  OUTVAF:*EXF’LA  I NBoard : FACTORS  MARK- ' T 

( E  V  A  L  ( e  e  t  V  a  1  u  e  ( E  V  A  L  0 IJ  T  V  A  R )  '  C  0  M  M  E  N  T ) )  ; 

IF  MARK  =  'NIL 

THEN  (PRINTOUT  T  "INCORRECT  RESPONSE  RECEIVED."  T) 

(RunRS  'Explain); 

THEN  ( P  R I N  TOUT  T  T  11 W  H  Y  t  o  c  o  n  t  i  n  u  e  i  n  q  u  i  r  y  :  H  0  W  t  o  s  e  e  d  e  t 
ails"  T  "NIL  to  exit"  T) 

MARK*  'NIL 

(SETQ  READ  (RATOM  NIL  NIL)); 

IF  READ  =  'NIL 
THEN  (STOP); 

IF  READ  =  'HOW 

THEN  (SETQ  FACTOR  EXPLA I NBoard : FACTORS) 

(RunRS  1  Explains) 

(PRINTOUT  T  T  "Type  WHY  to  continue  inquiry:  NIL  to  exit"  T 
)  (SETQ  READ  (RATOM  NIL  NIL)); 

IF  READ  =  'NIL 
THEN  (STOP); 

IF  READ  =  'WHY 

THEN  0 U T  V AR-E X P L  A I N B o a r d : FACT 0 R 3  M ARK* ' T 

(EVAL  (Get Value  (EVAL  OUT VAR)  'COMMENT)); 

IF  MARK  =  'NIL 

THEN  ( P R I N TOUT  T  "I N C 0 R R E C T  RES P 0 N S E  REGIE V ED."  T ) 

(STOP); 

(*  Beginning  here,  we  have  to  be  concerned  with  the  fact  th 
at  comet  i  rue®  FACT  OF;  4  and  FACTORS  may  be  NIL.  In  that  case, 
we  STOP  Explain.) 

THEN  (PRINTOUT  T  T  "  T  y  p  e  W  H  Y  t  o  c  o  n  t.  i  n  u  e  i  n  q  u  i  r  y  :  H  0  W  t  o  s  e 
e  Details."  T)  MARK*’1  NIL 

(SETQ  READ  (RATOM  NIL  NIL)) 

0 U  T  V A R - E X PL A I N B o a r d : F  A C T 0 R 4 ; 
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ir  rctALI  =  PUL 

THEN  (STOP); 

IF  READ  =  'WHY 
OUT VAR  =  'MIL 

THEN  ( P  R I N  TOUT  T  T  "  N  o  m  o  re  in  f  o  r  rn  a  t  i  o  n  a  v  ailable."  T ) 

(  o  T  u  P ) ; 

IF  READ  =  'WHY 
THEN  MARK* 1 T 

(EVAL  (Get.  Value  (EVAL  OUT  VAR)  ’COMMENT)); 

IF  MARK  =  'NIL 
THEN  (STOP); 

THEN  ( p  R I N  TOUT  T  T  "  T  y  p  e  W  H  Y  t  o  c  o  n  t  i  n  u  e  i  n  q  u  1  r  v  :  H  0  W  t  o  s  e 
e  Details."  T)  MARK* 'NIL 

0 IJ T V A  R>  EXPLAIN B o a r d  .-FACT 0 R 5 
(SETQ  READ  (RATOM  NIL  NIL)); 

IF  READ  =  ‘HOW 

THEN  (SETQ  FACTOR  EXF'LA I NBoard  :  FACT0R4 ) 

( R  u  n  R  S  '  E  x  p  1  a  i  n  2 ) 

( P R I N TOUT  T  T  " T v p e  W H Y  t o  c o ri t  i  n u e  i n q u  i r y :  N I L  t o  exit:  " 
T)  (SETQ  READ  (RATOM  NIL  NIL)); 

IF  READ  =  'WHY 
OUT VAR  =  'NIL 

THEN  ( P  R I WTOLIT  T  T  "  N  o  rn  o  r  e  i  n  f  o  r  rn  a  t  i  o n  a  v  ailable."  T ) 

(STOP)  ; 

IF  READ  =  'WHY 

THEN  (EVAL  (GetValue  (EVAL  OUT VAR)  'COMMENT)) 

MARK  *'T 

( P  R I N  TOUT  T  T  "All  f  a c  t o  r  s  e  x  p 1  a i n  e d :  t  y p e  H  0  W  f  o r  d e  t  a  i  1 
s"  T  "or  NIL  to  exit"  T) 

(SETQ  READ  (RATOM  NIL  NIL)); 

IF  MARK  =  'NIL 
THEN  (STOP); 

IF  READ  =  'HOW 

THEN  (SETQ  FACTOR  EXPLA I NBoard : FACTORS) 

(RunRS  ' Explains) 

( PRINTOUT  T  T  "All  e  x  p  1  a  n  a  t  i  o  n  c  a  p  a  b  i  1  i  t.  y  h  a  s  bee  n  s  h  o 
wn,"  T); 


us  my  * c a p  u  irii 

HuleSet  Explain  2 

L&sl  Edited;  7- Oct- 35  1  4;51 ; 55  by 

W  o r k  S p a c e  C  lass  :  B  o a r d s ; 
Compiler  Options:  : 

T  e  m  p  o  r  a  r  y  V  a  r  s  :  M  A  R  K  0  LI  T  V  A  R ; 

C o n t r o 1  S t r u c t u r e :  OOALL ; 

*  *  *  *  *  *  *  * 


(*  Explain  Rule  Set  provides  the  difference  condi fence  leve 
i  processors  to  invoke  the  second,  more  detailed  layer  of  e 
xplanat ion ,  By  setting  FACTOR  to  the  approprate  Blackboard, 
E x p  1  a i n  w ill  s h o w  t h e  r e s u  1 1 s  o f  a n a  1  y x e d  d a t a  t h at  is  u p d 
a t  e  d  a n d  m a i n t  a i n  e  d  i n  all  t  h  e  b 1 a c  k  b o a r  d  s ,  ) 


IF  FACT 0 R  =  ' S Y S B o a r d 

THEN  (PRINTOUT  T  "C3  Network  Analysis  show 
f  the  4  paths  to  the  A08G8F"  T  "FULL  STATIJ 
SBoard  ' AFULL)  T  "PARTIAL  STATUS:  "  (GetVa 
RTIAL)  T  "ZERO  STATUS:  "  (GetValue  SYSBoar 
a tus  of  the  4  paths  to  the  BS3G8F"  T  "FULL 
aide  SYSBoard  ‘  BFUL.L)  T  "PARTIAL  STATUS:  " 
rd  1 BPART I AL )  T  "ZERO  STATUS;  "  (GetValue 
T) 

( P  R I N  T  0  U  T  T  ( O  e  t  V  a  1  u  e  S  V  S  B  o  a  r  d  '  0  U  T  S  E  N  S  0  R ) 
r  s 1 1 e s  a r e  0 IJT"  T  " w i  t h  2 E R 0  CAPABILIT Y  . " 
S B o a r d  ’ AFFSE N S 0 R )  "  o u t  o f  9  s e n s o r  site s 
"with  PARTIAL  CAPABILITY."  T  T  (GetValue  S 
)  "  S Y S  r e p o r t s  h a v e  bee n  a c k n o w 1  edged , "  T 
ports:"  T  T  (GetValue  SYSBoard  1 OUTEMERG) 
ENUY  reports."  T  (GetValue  SYSBoard  1  OUTS A 
en  due  to  SABOTAGE."  T  (GetValue  SYSBoard 
b e e n  d u e  to  T E S T I N 8 . "  T  (Get V a  1 u e  3 Y S B o a r d 
ave  been  due  to  FAILURE."  T); 


s:"  T  T  "Status  o 
S:  "  (GetValue  SY 
1  u  e  S  Y  S  B  o  a  r  d  1  A  P  A 
d  ' AZERO)  T  T  "St 
STATUS:'"  (GetV 
(GetValue  SYSBoa 
3  Y  S  B  o  a  r  d  ‘  B  Z  E  R  0 ) 


"  out  of  9  sen so 
T  T  (GetValue  SY 
are  AFFECTED"  T 
Y  S  B  o  a  r  d  '  0  U  T  T  0  T  A  L 
"Out  of  these  re 
"  have  been  EMERG 
BOTAGE)  "  have  be 
'OUT TEST)  "  have 
1 OUTFAILURE  )  "  h 


IF  FACTOR  =  ' I n t e 1 B o a r d 

THEN  (PRINTOUT  T  "Intelligence  reports:"  T  T  "Existence  of 
Condition;  "  (GetValue  Intel Board  '  INTEL CONDITION)  T  "as  pr 
o v i d e  d  b  y  "  ( Get  V a  1 u  e  I n  t e 1 B  o  a  r  d  1 S  0  U  R  C E  )  "  s  o u r  c e  s . "  T  T  " 
T h i s  f o r e c a s t  is  i n t e n d e d  f o r  u s e  until:  "  ( G e t V a lue  I n t e  1 B 
oard  ' INTELDAYTIME)  "  hours."  T ) ; 


IF  FACTOR  =  1  Detect Board 

D e t e c t B o a r d : VILLDETE C T  ~=  'NIL 
THEN  ( P  R I N  T  0 U  T  T  ” R  e p  o  r  t  e  d  h e  a  d i n  g  falls  i  n  t  o  t  h e  r  a  n  g e  o  f 
coverage"  T  "of  BSS  sites:  "  (CONVERT  DetectBoard : WILLOETEC 
T)  T  "BSS  Detection  will  occur.  "  T  "The  site  in  best  pos 
iti o ri  t o  d e t e c t  t  h is  la u n c h  is:  "  D e t e c t B o a r d  :  OETE 0 T P T  T  ) : 


ir  r hu i uk  =  • ueteccDoara 

DetectBoard : WILLDETECT  =  ‘NIL 
DetectBoard  :  CLOSEDETECT  --=  'NIL 
THEM  (PRINTOUT  T  "Coverage  of  these  B33  sites  are  within"  T 
"5  degrees  of  the  reported  heading:  ’’  (CONVERT  DetectBoard 
: CLOSEDETECT)  T  "BS8  Detection  could  easily  occur,"  T  "The 
site  in  best  position  to  detect  this  launch  isnurnber:  "  De 
tectBoard : DETECTPT  T) ; 

IF  FACTOR  =  'DetectBoard 

DetectBoard : FARDETECT  'NIL 
DetectBoard : WILLDETECT  =  'MIL 

THEM  (PRINTOUT  T  "Coverage  of  these  B8S  sites  deviates"  T  " 
from  the  reported  heading  by  up  to  10  degrees:  "  (CONVERT  D 
etect&oard : FARDETECT  )  T  "BS8  Detection  may  be  possible. 

T)j 

IF  FACTOR  =  'DetectBoard 

DetectBoard: FARDETECT  =  'NIL 
DetectBoard : W I LLDETECT  =  'MIL 
DetectBoard: CLOSEDETECT  =  'NIL 
THEM  (PRINTOUT  T  "BS8  Detection  Unlikely  to  occur."  T  “Cl os 
est  approach  to  BS8  site  detection  is  at:  site"  (CONVERT  De 
tectBoard : NEARPT)  T  "with  a  difference  of  "  DetectBoard ; ME 
ARDIFF  "  degrees."  T)j 

IF  FACTOR  =  ‘DetectBoard 
DetectBoard : DETECTPT  ~=  @ 

DetectBoard : STATU80ETECTPT  -=  'FULL 
THEN  (PRINTOUT  T  "However,  the  Current  CAPABILITY  of" 

T  "BSS  site  number  "  DetectBoard : DETECTPT  "  is:  "  DetectBoa 
rd :  S'TATUSDETECTPT  T  ) ; 

IF  FACTOR  =  'DetectBoard 

TRENDBoard : W I LLDETECT  -=  'NIL 

THEM  (PRINTOUT  T  T  "The  following  C3  sites  lie  within  1"  T 
"  d e g r  e e  of  t h e  r e p o r ted  h e a d  i n g :  "  ( C 0 N V E F: T  T F: E N D B o a r  d :  W  ILL 
DETECT)  T  "Threat  to  these  sites  is;  ALMOST  CERTAIN."  T ) ; 

IF  FACTOR  =  'DetectBoard 

TRENDBoard  :  CLOSEDETECT  -•=  'NIL 
THEN  (PRINTOUT  T  T  "These  C3  sites  lie  within  5  degrees"  T 
"of  t h e  r e p o r t e d  h e a d i n g :  "  ( C 0 M V E  R  T  T RE N D B o a rd: CLOSEDETECT 
)  T  "Threat  to  these  sites  is:  LIKELY."  T)j 

IF  FACTOR  =  'DetectBoard 

TRENDBoard  :  FARDETECT  'NIL 

THEN  (PRINTOUT  T  T  "These  03  sites  lie  within  1®  degrees"  T 
"of  the  reported  heading:  "  (CONVERT  TRENDBoard : FARDETECT) 
T  "Threat  to  these  sites  is:  POSSIBLE,"  T); 


IF  FACTOR  =  ' DetectBoard 

TRENDBoard : FARDETECT  =  'NIL 
TRENDBoard : CLOSEDETECT  =  ‘NIL 
TRENDBoard : WILLDETECT  =  'NIL 

THEN  (PRINTOUT  T  T  "Reported  HEADING  is  further  than"  T  "1 
G  degrees  from  any  C3  site."  T  "Threat  to  these  sites  is:  U 
NLIKELY . "  T); 

IF  FACTOR  =  'MATCHBoard 

THEN  (PRINTOUT  T  T  "Reported  LAUNCH  S’TE  is:  "  MATCHBoard :L 
AIJNCHSITE  T  "with  "  MATCHBoard :  LAUNCHERTYPE  "  missiles."  T 
T  "The  CAPABILITY  of  the  Reporting  Sensor  is:  "  MATCHBoard: 
RPT SENSOR CAP  T ) ; 

IF  FACTOR  =  'MATCHBoard 

MATCHBoard : OUTAGEREASOH  'NIL 
THEN  (PRINTOUT  T  "Due  to:  "  MATCHBoard : OUTAGEREASON  T) ; 

IF  FACTOR  =  'TRENDBoard 

THEN  (PRINTOUT  T  "Confidence  of  the  AD3-1  Message:  "  (GETPR 
OP  EVENTMATCH  1 P1C0NFIDENCE)  T  "Confidence  of  the  ADS-2  Mes 
sage:  "  (GETPROP  EVENTMATCH  ' P2C0NF I DENCE )  T  T); 

IF  FACTOR  =  'TRENDBoard 

THEN  (SETQ  SENSOR NUM  (GETPROP  EVENTMATCH  ' RISE NS OR) ) 

( R  u  n  R  S  '  S  e  n  s  o  r  M  a  p  ) 

(PRINTOUT  T  "The  Reported  Sensor  CAPABILITY  on  the  FIR 
S T  P a s s  i s :  "  S E N 3 0 R CAP  T  " T h e  S e n s o r  C 0 N FIDENCE  L e v el  re p o 
rted  on  the"  T  "FIRST  pass  is:  "  SENSORCONF  T  T); 

IF  FACTOR  =  'TRENDBoard 

THEN  (SETQ  SENSOR NUM  (GETPROP  EVENTMATCH  ' P2SENS0R) ) 

( R  u  n  R  S  '  S  e  n  s  o  r  M  a  p ) 

(PRINTOUT  T  "The  Reported  SECOND  PASS  Sensor  CAPABILIT 
Y  is:  SENSORCAF'  T  "The  SECOND  PASS  Sensor  CONFIDENCE  Lev 

el  is:  "  SENSORCONF  T  T)  OUTVAF^'NIL  M A R  K  * 1  TYPES ; 

( *  This  r u  1  e  t. r i g g e r e d  o n  1  y  b y  t h e  a d d i t i o n a  1  in f o r m a t. i o n  p 
rovided  in  a  BSS  message  which  gives  a  P 3 SENSOR,) 

IF  FACTOR  =  'TRENDBoard 
SENSORTYPE  =  'BSS 
THEM  (SETQ  SENSORNIJM  P3SENS0R) 

( R  u  n  R  S  '  S  e  n  s  o  r  M  a  p  )  0  U  T  V  A  R  <- '  T 

(PRINTOUT  T  "The  Reported  BSS  SITE  Sensor  CAPABILITY  i 
s:  "  SENSORCAF'  T  "The  BSS  SITE  Sensor  CONFIDENCE  Level  is: 

"  SENSORCONF  T  T); 

IF  FACTOR  =  'TRENDBoard 


V -^yv-'.-ivT’-vv  11  r  »■  <C»  HA -.'  ■!■•  g»  -A «■«  a.*  j-  in  peg  -  4’ 


ir  thuiuk  =  iKtMUDoara 

THEN  (PRINTOUT  T  "The  Infrared  Intensity  Reading  reported  o 
n"  T  “the  first  pass  is:  "  (GETPROP  EVENTMATCH  'P1IRTYPE)  T 
)i 

IF  FACTOR  =  'TRENDBoard 

(GETPROP  EVENTMATCH  ' P2TYPE)  =  'MATCH 
THEN  (PRINTOUT  T  "Second  Pass  IR  Reading:  CONFIRMS"  T 
"the  first  pass  reading."  T)j 

IF  FACTOR*  'TRENDBoard 

(GETPROP  EVENTMATCH  ' P2TYPE)  =  ' NOMATCH 
THEN  (PRINTOUT  T  "Second  Pass  IR  Reading:  IMPROVES"  T 
" o  v e  r  t  h  e  f i r s t  p  a  s  s  re  a  d i n  g .  “  T ) : 

IF  FACTOR  =  'TRENDBoard 

(GETPROP  EVENTMATCH  ' P2TYPE )  =  'MISMATCH 
THEN  (PRINTOUT  T  "Second  Pass  IR  Reading:  DENIES"  T 
"the  first  pass  reading."  T )  • 

(*  Only  modification  of  BSS  explanation  of  TRENDBoard  to  IR 
TYPE  involves  further  certainty  about  the  LAUNCHER  TYPE 
.  W h e n  all  c o n d i t i o n s  b e 1 o w  a r e  met*  T Y PEI. ) 

IF  SENSORTYPE  =  'BSS 
P3STABILITY  =  'Y 
P30B..1NUM  <  2 

(GETPROP  EVENTMATCH  ’PilRTYPE)  ~=  ' TYPE 2 
THEN  MARK+'TYPEl; 

(*  The  following  is  the  BSS  site  contribution  to  identifyin 
g  the  missile  type.  Note  that  0UTVAR=T  is  intended  to  trigg 
e  r  o  n  1  y  w  h  e  n  e  x  p  1  a  i  n  i  n  g  B  S  S  e  v  e  n  t  s  ,  0  n  1  y  c  h  a  n  c  e  f  o  r  r  e  v  i  s  i  o 
n  is  i n  t h e  t h i r d  r u  1  e  be! o w  ,  ) 

IF  OUTVAR  =  'T 

MATCHBoard : LAUNCHERTYPE  =  MARK 
THEN  (PRINTOUT  T  T  "BSS  Site  Observations  CONFIRM  the  missi 
le  type."  T ) ; 


IF  OUTVAR  *  ' T 

MATCHBoard:  LAUNCHERTYPE  --=  MARK 
THEN  ( P  R I N  TOUT  T  "  B  S  S  S  i  t  e  0  b  s  e  r  v  a  t  i  o  n  s  D  E  N  Y  t  h  e  p  r  e  v  i  o  u  s  rn 
issile  type."  T) 

MATCHBoard  :  L A U N CHERT Y P E *- M A F: K  j 

IF  FACTOR  =  'TRENDBoard 

THEN  (PRINTOUT  T  T  "SENTINEL  concludes  the  launcher  type  is 
:  "  MATCHBoard: LAUNCHERTYPE  T)j 


I 


lr  rttuiuK  =  • i Ktwuooar a 

THEN  (PRINTOUT  T  T  "SENTINEL  concludes  the  launcher  type  is 
:  ■  MATCHBoard :  LAUNCHERTY'PE  T); 

(*  The  output  of  the  BSSBoard  encompasses  the  THREAT  to 
both  C3  Node  and  US  targets,) 

IF  FACTOR  =  'BSSBoard 

BSSBoard  ;WILLDETECT  'NIL 

THEN  (PRINTOUT  T  T  “The  following  Targets  lie  within  1  degr¬ 
ee  of  the  reported  heading:  "  (CONVERT  BSSBoard : WILLDETECT) 
T  "THREAT  to  these  sites' is:  ALMOST  CERTAIN."  T); 

IF  FACTOR  =  ’BSSBoard 

BSSBoard  :CL03E0ETECT  --=  'NIL 

THEN  (PRINTOUT  T  T  "The  following  Targets  lie  within  5  degr 
ees  of  the  reported  heading :  "  (CONVERT  BSSBoard : CLOS'EDETEC 
T)  T  "THREAT  to  these  sites  is:  LIKELY."  T); 

IF  FACTOR  =  'BSSBoard 

BSSBoard :FARDETECT  -=  ‘NIL 

THEN  (PRINTOUT  T  T  "The  following  Targets  lie  within  1@  deg 
r ees  of  t h e  r e p o r t e d  h e a d i n g :  "  ( C 0 N V E R T  B S S B o a rd:FAR DETECT 
)  T  "THREAT  to  these  sites  is:  POSSIBLE,"  T); 

IF  FACTOR  =  'BSSBoard 

BSSBoard iFARDETECT  =  'NIL 
BSSBoard : W I LLDETECT  =  'NIL 
BSSBoard : CLOSEDETECT  =  'NIL 

THEN  (PRINTOUT  T  T  "The  obiect  tracked  has  a  reported  headi 
rig  of:  "  P3HEADIN0  T  "NO  THREAT  reported  to  any  US  Target." 
T  ) 

#&( Ru 1 eSetSource  " SFUO . z I [ : . j d9 . 6 " ) 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* (REDO  97) 


us  my  *ca  i  ruunuum  mence 
RuleSet  EXTHItiHConfidence 

Last  Edited;  3-oct-ss  is: 20: 54  by 
Workspace  Class:  Boards ; 

Compiler  Options:  ; 

Temporary  Vars:  MARK  READ  WIN1  LOSi  HYP01  HYPG2; 

Control  Structure:  DOALL; 

*  *  + .+  *  *  *: 


(*  EXTHIGHConf idence  invoked  from  ADS2Confi dense,  takes  vot 
e  to  insure  confidence  is  EXTHIGH,  Revised  to  HIGH  when  nec 
essary.  Uses  Analyze  to  determine  when  a  special  case  such 
as  FIRSTSTRIKE  may  be  ocurrinq  explains  output.) 

THEN  (SETQ  TRANSFER  'NIL) 

( R  u  n  R  3  '  B  o  a  r  d  V  o  t  i  n  g ) ; 

(*  Large  LOWVOTE  results  in  belief  revision,  TRANSFER  is  s 
et  to  T  to  insure  belief  revision  only  occurs  once.) 

IF  LOWVOTE  >=  HIGHVOTE 
THEN  (SETQ  TRANSFER  ' T ) 

(PRINTOUT  T  "Confidence  estimate  downgraded  to:  HIGH"  T) 
( F:  u  n  R  S  'HI  G  H  C  o  ri  f  i  d  e  n  c  e )  ( S  T  0  P )  j 

(*  HIGHRanking  is  run  to  set  the  FACTORLIST  to  explain) 

THEN  (SETQ  FACTORLIST  (LIST  MATCHBoard : EXPNUMBER  ' MATCHBoar 
d  DetectBoard: EXPNUMBER  'DetectBoard  TRENDBoard : EXPNUMBER  ' 
T  R  E  N  D  B  o  a  r  d  I  n  t  e  1 B  o  a  r  d :  E  X  P  N  U  M  B  E  R  ’  I  n  t  e  1 B  o  a  r  d  S  V  S  B  o  a  r  d  :  E  X  P  N  U  M 
BEF:  '  SYS  Board ) ) ; 

( *  P 2  C  0  N  F I D  E  N C  E  u p date  d  o  n  e  v e  n t  1 i s  t  w  h  e  n  n  e  c  e  s  s  a  r y . ) 

THEN  (PRINTOUT  T  "EXTREMELY  HIGH  Confidence  Levels  Confirm 
ed."  T) 

(PIJTPROP  EVENTMATCH  '  P2C0NF I  DENSE  'EXTHIGH) 

( F:  u  n  F:  S  '  H I G  H  R  a  n  k  i  ri  g ) 

(RunRS  ’Speculate) 

(RunRS  'HOSTILE) 

( RunRS  ' TESTHYPO )  MARK* 'NIL , 

(*  Following  the  running  of  HOSTILE  and  TESTHYPO  above,  the 
leading  hypothesis  HYP01  and  HYP02  are  determined.) 

IF  HOSTILENUM  >=  TESTNUM 
THEN  HYP01*' HOSTILE 

HYP02* ' TEST  MARK* ' T; 

IF  MARK  =  'NIL  THEN  HYF'Ol*  '  TEST  HYPOS*  1  HOSTILE  : 


THEN  (RunRS  ‘UNRESOLVED)  MARK *' NIL  tf  INI* (MKATOM  (CONCAT  HYP 
01  ’NUM))  L0S1*(MKAT0M  (CONCAT  HYP02  1  NUM) ) ; 

IF  UNRESOLVEDNUM  >  (EVAL  W INI) THEN  HYPOS *HYP01 
HYP01* '  UNRESOLVED  MARK*  ’  T ; 

IF  MARK  =  ’NIL 

UNRESOLVEDNUM  >  (EVAL  L0S1)  THEN  HVP02* ‘ UNRESOLVED ; 

THEN  (RunRS  'UNKNOWN)  MARK* ‘NIL 

W I N 1 * ( MKATDM  { CONCAT  HVPQ1  ' MUM ) ) 

L081*( MKATOM  (CONCAT  HYPOS  ‘ NUM) ) ; 

IF  UNKNOWN  NUM  >  (EVAL  WIN1)  THEN  HYP02*HYP01  HYP01* '  IJH  KNOW 
N  MARK* ' T; 

IF  MARK  =  'NIL  UNKNOWNNUM  >  (EVAL  L081) 

THEN  HYPOS* 'UNKNOWN,' 

(*  At  the  end  of  this  section,  leading  hypo=HYP01,  with 
the  contender  HYPOS  checked  for  closeness , )THEN  MARK*(DIFFE’ 
RENCE  (EVAL  WIN1)  (EVAL  LuSl ) ) ; 

IF  MARK  >=  3  THEN  (PUTPROP  EVENTMATCH  'PSHYPO  HYP01); 

IF  (GETPROP  EVENTMATCH  'PSHYPO)  =  'NIL  HYP01  =  'HOSTILE  THE 
N  MARK* '  T; 

IF  (GETPROP  EVENTMATCH  'PSHYPO)  =  'NIL  HYPOS  =  'HOSTILE  THE 
N  MARK* ' T j 

(*  Hypothec  is  set  to  HOSTILE  in  case  of  doubt  when  THREAT 
is  high,  other  hypos  do  not  discount  THREAT,)  IF  MARK  =  'T  T 
HREATNUM  >=  2  NOTHREATNUM  <  2  THEN  (PUTPROP  EVENTMATCH  ' PSH 
YPO  'HOSTILE); 

(*  When  all  else  fails  select  leading  hypo,)  IF  (GETPROP  EVE 
NTMATCH  'PSHYPO)  =  'NIL  THEN  (PUTPROP  EVENTMATCH  'PSHYPO  HY 
POi) ; 

(*  OUTPUT  SECT  I  ON  ) THEN  (PRINTOUT  T  T  "  AOS  PASS  2  "  EVENTM 
ATCH  T  T  "1.  DETECTED:  "PRESENTIME  T)  READ*  ‘NIL; 

IF  SENSORNUMBER  =  ’ S2  THEN  READ* 'SOUTH; 

IF  READ  =  'NIL  THEN  READ* 'NORTH; 

THEN  (PRINTOUT  T  "2.  ADS:  "  READ  T  "3.  EVENT  TYPE:  "  (GETP 
ROP  EVENTMATCH  ' PSHYPO )  T  "4.  BSS  DETECT:  "  DetectBoard : DET 


intN  IKKINIUUI  I  "Z.  AL'iS:  '•  KtftU  I  "  d .  tVtN  I  I  1 KC.  I  "  l  bt  I K 

ROP  EVENTMATCH  ‘ P2HYP0)  T  "4.  BSS  DETECT:  "  DetectBoard : DET 
ECTPT  T)  READ*’ YES; 

IF  (GETPROP  EVENTMATCH  1 P2HYP0)  ‘HOSTILE  THREATNUM  <  2 
THEN  READ*' NO; 

( *  Special  case: when  hypothesis  revealed  is  TEST  want  to  co 
nvince  MWO  evidence  supports  this:  Therefore  we  run  LOWR 
anking  to  put  the  most  conclusive  differences.) 

IF  (GETPROP  EVE NT COUNT  1 P2HYP0)  =  'TEST 

THEN  READ* ‘ NO  (SETQ  FACT0RLI8T  (LIST  MATCHBoard : EXPNUMBER 
'MATCHBoard  DetectBoard : EXPNUMBER  ' DetectBoard  TRENOBoard ; E 
XPNUMBER  ' TRENOBoard  IntelBoard : EXPNUMBER  ' IntelBoard  SYSBo 
a  r  d  :  E  X  P  N  U  M  B  E  R  *  S  Y  S  B  o  a  r  d ) )  ( R  u  n  R  S  ’  L  0  W  R  a  n  fc  i  n  g ) ; 

THEN  (PRINTOUT  T  "5.  THREAT:  "  READ  T  "6.  CONFIDENCE:  EXTH 
I6H  "  T  T); 

( *  V here  t  h  e  r  u  n n i n  g  o f  S p e  c u late  a b o  v e  t  r i g g e  r  s  a  s 

p e  c i a  1  case  the  o u t p u  t  s  h  o  w s  u  p  n o  w . ) 

IF  EXP LA  I NBoard: COMMENT  ~=  'NIL 
THEN  ( E V A L  EXF'LA  I N B o a r d  :  C 0 M M ENT ) ; 

THEN  (PRINTOUT  T  T  "If  you  wish  further  explanation  type  T" 
T  " 0 1 h  e  r  w i s e ,  t  y  p e  NIL  t  o  P  r  o c  e  e d  .  "  T ) 

(SETQ  READ  (RATOM  NIL  NIL)); 

IF  READ  =  'NIL  THEN  (STOP) , 

THEN  (RunRS  'Explain); 

If b. (  Ru  1  eSetSource  "  S I UO  .  z  I  [ :  .  0 e 8 . 3 " ) 

2* 

NIL 

2* 

NIL 

2* 

NIL 

2* 

NIL 

2* 

NIL 

2* 

NIL 

2* 

NIL 

2* 

NIL 

2* (REDO  99) 


us  my  tCA  i  l u vr u u r 1 1  luenuc 

RuleSet  EXTLOWConfidence 

Last  Edited:  3-Oct-SS  18:25:43  by 

Workspace  Class:  Boards; 

Compiler  Options:  ; 

Temporar y  V a r s :  MARK  READ  H V P 0 1  H V P 0 2  W INI  L 0 S 1 ; 

Control  Structure:  OOALL ; 

if;  *  :4c 


(*  EXTLOWConfidence  invoked  from  wdS2Conf i dence ,  takes  vote 
to  insure  confidence  is  EXTLOW.  Then  evaluates  the  comment 
s  from  the  first  three  factors  to  explain  to  the  user  why  t 
he  report  should  not  be  processed.  User  is  asked  for  his  ap 
proval  to  delete  or  process  the  report.) 

THEN  (SETQ  TRANSFER  ’NIL) 

( R  u  n  R  S  1  B  o  a  r  d  V  o  t  i  ri  g ) ; 

(*  Large  HI6HV0TE  results  in  belief  revision,  TRANSFER  is  s 
et  to  f  to  avoid  extraneous  comments  from  LOWConfid) 

IF  HIGH VOTE  >=  LOW VOTE 
THEN  (SETQ  TRANSFER  ’ T) 

('PRINTOUT  T  "Confidence  estimate  revised  to:  I  OW"  Ti 
(RunRS  1  L  0  V,1  Confidence)  (STOP); 

(*  LOWRanking  is  run  to  set  the  FACTORLIST  to  explain) 

THEM  ( S E T 0  F A 0 T 0 R L I S T  (LI S T  0 e t e c t B o a r d : E X P N U M BER  ’ 0 e t e c t B o 
a  r  d  S  V  S  B  o  a  r  d  :  E  X  P  N  U  M  BER  *  S  Y  S  B  o  a  r  d  I  rite  IB  o  a  r  d  :  E  X  P  N  U  M  B  E  R  ‘I  n  t  e 
1 B  o  a  r  d  T  R  E  N  D  B  o  a  r  d  :  E  X  P  N IJ  M  B  E  R  1  T  R  E  N  0  B  o  a  r  d  M  A  T  C  H  B  o  a  r  d  :  E  X  P  N  U  M  6  E 
R  'MATCH Board)); 

(  *  T r v  t o  c o n v  i  n c e  t h e  U S E R  t o  delete  t h e  re p o r t .  ) 

THEN  (RunRS  'LOWRanking) 

(PRINTOUT  T  T  "CONFIDENCE  LEVELS  are  extremely  LOW"  T  " 
d  u  e  t  o  t  h e  folio w i n  g  f  a c t o r  s : "  T  T ) ; 

THEN  (EVAL  (GetValue  (EVAL  (GetValue  EXPLAINBoard  1 FACT0R1) 
)  'COMMENT')) 

(EVAL  (GetValue  (EVAL  (GetValue  EXPLAINBoard  ’FACTORS) 
)  'COMMENT)) 

(  E  V  A  L  ( G e  t V  a  I u  e  ( E  V  A  L  ( G  e  t V  a  1 u  e  E  X  P  L  A I N  B  o a  r d  'FACT  0  R  3 ) 
)  ’COMMENT)); 

THEN  (PRINTOUT  T  T  "SENTINEL  DECISION  AID  recommends  that  t 
h  i  s  r  e  p  o  r  t  n  o  t  b  e  p  r  o  c  e  s  s  e  d  f  u  r  t  h  e  r  d  u  e  to:"  T ) ; 

(*  Additional  factors  set  according  to  the  1st  FACTOR) 

I F  E X P L A I N B o a rd : FACT0R1  =  '  S Y S B o a r d 

THEN  (PRINTOUT  T  "Serious  SYSTEM  outages."  T  T ) : 


<*Y 


IF  EXPLAINBoard : FACTOR!  =  'OetectBoard 

THEM  (PRINTOUT  T  “No  possibilities  for  further  detection. 

T  T ) ;  ' 


I 


I 

1  U 

i 


i 


IF  EXPLAINBoard: FACT0R1  =  'TRENDBoard 

THEN  (PRINTOUT  T  "Degrading  evidence,  spurious  sensor  repor 
t  suspected."  T  T); 


IF  EXPLAINBoard: FACTOR!  =  1 MATCHBoard 

THEN  (PRINTOUT  T  “Unreliable  sensor  report  due  to  damage." 

T  T); 

I F  EXPLA I NBoard ; FACTOR!  =  ' I ntel Board 

THEN  (PRINTOUT  T  "No  indications  of  any  hostile  act."  T  T.) ; 

( *  User  is  asked  to  signal  his  approval  or  disapproval)  TH 
EN  (PRINTOUT  T  T  “If  you  concur  with  SENTINEL’S  reasoning, 

"  T  "Type  T  to  TERMINATE  the  processing  of  this  event,"  T  " 
Otherwise,  type  NIL  to  continue  processing,"  T )  (SET  0  READ  ( 
RATOM  NIL  N I L ) ) ; 


( :+:  T  e  r  m  i  n  a  t  i  o  n  p  o  i  n  t  f  o  r  f  u  r  t  h  e  r  p  r  o  c  e  s  s  i  n  g  , ) 
IF  READ  =  'T 
THEN  (STOP); 


( *  The  folio  w  i  n  g  d  e  t  e  r  m  i  n  e  s  t  h  e  f  i  r  s  t  a  n  d  s  e  c  o  n  d  h  y  p  o  t.  h  e  s  i 


,  HYPO!  is  the  closest  with  factor  number  WIN!,  while 
is  second  with  L0S1.  In  case  of  a  tie,  priority  i 
I L  E  >  T  E  S  T  >  I J  N  R  E  S  0  L  V  E  D  >  U  N  K  N  0  W  N  .  ) 


HYPO 

HOST 


THEN  (RunRS  ’HOSTILE)  (RunRS  ’TESTHYPO)  MARK*  'NIL ; 


IF  HOST  I LENUM  >=  TEST N U M 
THEN  HYPO!*-  ’  HOSTILE 

HYP02* '  TEST  MARK*  '  T ; 


IF  MARK  =  'NIL 
THEN  HYPO!* ’TEST 

HYP 02* ' HOSTILE; 

THEN  (RunRS  ’UNRESOLVED)  MARK* 'NIL 

W INI* ( M  K A  T  0  M  ( C  0  N  C  A  T  H  Y P  0 1  ' N  U  M ) ) 

L  0  S 1 * ( M  K A  T  0  M  ( C  0  N  CAT  H  Y  P  0 2  ' N  U M ) ) ; 

IF  IJNRESOLVEDNUM  >  (EVAL  WIN!) 

THEN  HVP02*HYP01 

H  Y  P  01*’ U  N R  E  S 0  L  V  ED  MARK* 1 T ; 


IF  MARK 


'NIL 


W  C'J 


rtvh'Ui*  •  uNrctsuLvtu  m a r r-.  +-  ■  i  ; 

IF  MARK  =  'NIL 

UNRESOLVEDNUM  >  (EVAL  LOS1) 

THEN  HYF'02* ' UNRESOLVED; 

THEN  (RunRS  'UNKNOWN)  MARK* 'NIL 

W INI* ( M  K  A  T 0 M  ( C 0  N CAT  H  V  P  0 1  ' N U  M  )  ) 

L  0  S 1 * ( M K  A  T  0 M  ( C  0 N CAT  H  V  P 0  £  ' H U  M )  ) ; 

IF  UHKNOWNNUM  >  ( EVAL  WIND 
THEN  HYP02* HYPOl 

H V F'01*  '  U N K N 0 W N  MARK*  1  T ; 

IF  MARK  =  'NIL 

IJNKNOWNNUM  >  (EVAL  LOS1) 

THEN  HYPOS’* 'UNKNOWN; 


(*  In  this  section,  heuristics  help  determine 
eading  hypothesis  indeed  stays  as  the  leading 

THEN  MARK* ( DIFFERENCE  (EVAL  WIN!)  (EVAL  L0S1)) 
( PUTPROP  EVENTMATCH  ' P2C0NFIDENCE  'EXTLOW) 


whether 
hypo , ) 


IF  MARK  >  =  3 

THEN  (PUTPROP  EVENTMATCH  ' P2HYP0  HYPOl); 

IF  HYP 01  =  'UNKNOWN 

THEN  (PUTPROP  EVENTMATCH  ' P2HYP0  'UNKNOWN); 

IF  (GETPROP  EVENTMATCH  ' P2HYP0)  =  'NIL 
HYPOl® ' UNRESOLVED 
THEN  MARK* ' T ; 

IF  (GETPROP  EVENTMATCH  ' P2HYP0)  =  'NIL 
H  Y  P  0  2  = ' UNRESOLVED 
THEN  MARK* ' T; 

( *  Hypothesis  set  to  HOSTILE  when  THREAT  is  HIGH  and  not 
disc o u n t e d  b y  N OTHREATN U M , ) 


IF  MARK  =  'T 

THREATNUM  <  2 

THEN  ( P IJ  T  P  R  0  P  E  V  E  N  T  M  A  T  C  H  '  P  2  H  Y  P  0  1  U  N  R  E  3  0  L  V  E  D ) ; 


(*  When  all  else  fails,  select  lead i no  hypo  as  answer.) 
IF  (GETPROP  EVENTMATCH  ' P2HYP0)  =  'NIL 
THEN  (PUTPROP  EVENTMATCH  ' P2HYP0  HYPOl); 


(*  OUTPUT  SECTION) 


(*  OUTPUT  SECTION) 

THEN  (PRINTOUT  T  T  "ADS  PASS  2  "  EVENTMATCH  T  T  "1.  DETECTE 
D:  "  PRESENTIME  T)  READ* 'NIL; 

IF  SENSOR NUMBER  =  1 S2 
THEN  RE AD*' SOUTH; 

IF  READ  =  'NIL 
THEN  READ*' NORTH; 

THEN  (PRINTOUT  T  "2.  ADS:  "  READ  T  "3.  EVENT  TYPE:  "  (GETPR 
OP  EVENTMATCH  ‘ P2H YPO )  T  "4.  B8S  DETECT;  “  DetectDoard ; DETE 
CTPT  T)  READ* ' NO; 

(*  Since  confidence  is  EXTLOW,  THREAT  is  assumed  to  be  NO 
unless  p r o  v e  d  o  t h  e  r  w i s  e . ) 

IF  (GETPROP  EVENTMATCH  ' P2HYP0)  =  'HOSTILE 
THEN  (SETO  FACTORLIST  (LIST  SYS Board : EXP NUMBER  ' SYSBoard  De 
tec t Board : EXP NUMBER  ' DetectBoard  TRENDBoard : EXPNUMBER  ' TREN 
D  B  o  a  r  d  MAT  C  H  B  o  a  r  d :  E  X  P  N  U  M  B  E  R  'MAT  C  H  B  o  a  r  d  I  n  t  e  1 B  o  a  r  d  :  E  X  P  N IJ  M  B  E 
R  '  Intel  Ei  o  a  r  d ) ) 

( R  u n R  S  'HI  6 H  R a n k i n q ) 

READ*' YES ; 

IF  (GETPROP  EVENTMATCH  ' P2HYP0 )  =  'UNRESOLVED 
THREATNUM  >=  2 
THEN  READ* ' YES; 

THEN  (PRINTOUT  T  "5.  THREAT:  "  READ  T  "6.  CONFIDENCE:  EXTLO 
W"  T  T  T  "Further  explanation  can  be  accessed  by  typing  in 
T"  T  "Otherwise,  type  NIL  to  proceed."  T) 

(SETO  READ  (RATOM  NIL  NIL)); 

IF  READ  =  'T 

THEN  (RunRS  'Explain); 

THEN  (PRINTOUT  T  "THis  is  HYPOl:  "  HYP01  T  "This  is  HYP 02 : 
"  HYP 02  T); 

( R u 1 e S e  t S o u r c e  "  S I U @ , z I [ : . JeS . 10 " ) 


NIL 

23* (REDO  99) 
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30* ( PP  FAN) 


(FAN 

[LAMBDA  (LAUNCHSITE)  <*  edited;  "21 -Oct-85  1 4;40") 

FAN;,  Given  a  Launchsite,  FAN  calls  on  POLAR  repeatedly  with  the 
target  and  launch  coordinates,  to  put  together  a  FANLIST  of  the  range  arid  headin 
q  from  the  launchsite  to  each  member  of  the  TARGETLIST.  INPUT:  the  LAUNCH'S  I 
TE,  and  its  property  list,  OUTPUT;  the  FANLIST  with  (target  heading  range)  eleme 
nts) 


(PROG  (X  V  TGTLIST  A) 

(SETQ  X  (GETPROP  LAUNCHSITE  (QUOTE  LAT)')) 

(SET Q  V  (GETPROP  LAUNCHSITE  (QUOTE  LONG'))) 

(SETQ  LNCHCOORD  (LIST  X  V)) 

(SETQ  TGTLIST  TARGETLIST) 

[SETQ  FANLIST  (LIST  (CONS  LAUNCHSITE 

(LIST  (QUOTE  HEADING) 
(QUOTE  RANGE] 


Per  of  the  TARGETLIST) 

LOOP ( COND 

((NULL  (CAR  TGTLIST)) 


(+  Calls  on  POLAR  for  each  mem 


(RETURN))) 

(SETQ  TARGET  (CAR  TGTLIST)) 

[SETQ  TGTCOGRD  (LIST  (GETPROP  TARGET 

(QUOTE  LAT)) 
(GETPROP  TARGET 

(QUOTE  LONG] 

(printout  T  "THIS  IS  POLARCALL  "  TGTCOGRD 
LNCHCOORD  T) 

(printout  T  "THIS  IS  TARGET  NUMBER  "  TARGET  T  T) 
( POLAR  T  G  T  C 0 0 R D  L N  C H  C 0 0 R D ) 

f  i-  -r  rt  /  i  1  -r  -r  r. r-  T  l  i  r*  ,-»r-,T%i r,  b )  r,  r-  X  \ 

i,  ic.  i  y  h  i,  li*i  i  ht.ijC  i  niiHUin t>  riftiMtoc.  j * 

( ClQCQLLECT  A  FANLIST) 

(SETQ  TGTLIST  (COR  TGTLIST)) 

(GO  LOOP]) 

(FAN) 


31* 

NIL 

31* 

NIL 

31* 

NIL 

31* 

NIL 

31* 

NIL 


31* (REDO  99) 


us  my  *neau  myorieur. 

RuleSet  HeadingOheck 

Last  Edited;  3- Oct- 85  1  S;41  ;44  by 

W  o  r k S p ace  C 1  a s s :  &  o a r d s ; 

Compiler  Options:  : 

Temporary  Vars:  TL  1ST  TARGET  MAXPT  MI HPT  MATCHPT  MAXD IFF 

MI  HD  IFF  BS3NEARD IFF  BSSNEARPT  &SSW I LLDETECT  BSSCLOSEDETECT 
BSSFARDETECT  MARK  BSSDETECTPT  MIDPOINT  MIDIFF  OLDMIDIFF j 
Control  Structure:  WHILE ALL: 

I  ter at i on  Cond i t i on :  T : 


(*  Head ingC heck  goes  through  BS3TAG  TAGLIST  and  a  HEADING'  t 
o  c  o  rn  p  u  t  e  w  h  i  c  h  B  S  S  s  i  t  e  w  ill  d  e  t  e  c  t  t  h  e  1  a  u  ri  c  h  .  T  h  o  s  e  t  h  a  t 

will  direct ly=WI LLDETECT,  those  within  5  degrees  =CL0SEDET 
ECT,  those  within  i@  FARDETECT,  The  closest  site  that  is  fu 
rther  than  10  degrees  away  in  coverage  is  stored  in  NEARPT 
and  the  difference  in  NEAROIFF.  The  BSS  site  given  in  the  A 
D S 2  r e p o r t  is  DETECTPT.  M o s t  o f  t h e  D e t e c t B o a r d  is  filled  o 
ut  here . ) 

( *  One  t i me  i n i t i a  1 i zat i on ) 

-!'!!>  THEN  TL I  ST* (COR  TAGLIST) 

BSSNEARDIFF*70 
Detect  Board  :  W ILLDETECT  * 1  NIL 
D e t. e c t B o a r  d  :  C L 0 S EDETECT*  1  NIL 
Detect Board : FARDETECT *  'NIL 
DetectBoard: NEARPT* 'NIL 
Detect  Board  :  HEARD  I FF* ' N I L 
[i  e  t  e  c  t  &  o  a  r  d  :  D  E  T  E  C  T  P  T  8 
OLDMIDIFF+70; 

IF  (CAR  TL I  ST)  =  'NIL 

THEN  DetectBoard : W ILLDETECT *BSSW ILLDETECT 
D  e  t  e  c  t  B  o  a  r  d  :  C  L  0  S  E  D  E  T  E  C  T  *  B  S  S  C  L  0  S  E  D  E  T  E  C  T 
D  e  t  e c  t  B  o  a  r  d : F  A  R D  E  T  E C T*B S 3  F  A  R  D  E  T  E C  T 
DetectBoard : NEARPT^&SSNEARPT 
DetectBoard : HEARD IFF+&S8NEARD IFF 
DetectBoard : DETECTPT* (GLC  BSSDETECTPT) 

DetectBoard : ST ATUSDETECTPT* ( GETPROP  BSSDETECTPT 
' CAPABILITY) 

(STOP): 

THEN  MATCHPT* (CAR  TLIST) 

T ARGET * ( CAR  MATCHPT ) 

MAXPT* (C ADR  MATCHPT) 

M I NPT* ( CAD DR  MATCHPT) 


(*  Heading  between  MINPT  and  MAaF'T  =  WILLDETEUT,  MARK  is  se 
t-  to  preclude  same  site  joining  more  than  one  list.) 

IF  HEADING  <=  MAXPT 
HEADING  >=  MINPT 

THEN  fSETQ  BSSW ILL DETECT  (APPEND  (LIST  TARGET)  BSSW ILL DETEC 
T))  MARK*  '  T ; 

(*  Heading  deviation  of  5  degrees  or  less=CLu3EDETECT ) 

IF  MARK  =  ~ ‘NIL 
MAXDIFF  <=  5 

THEN  (SETQ  BSSCLOSEDETECT  (APPEND  (LIST  TARGET)  BS'SCLOSEDET 
ECT ) )  MARK* 1 T ; 

IF  MARK  =  'NIL 
MIND  IFF  <=  5 

THEN  (SETO  BSSCLOSEDETECT  (APPEND  (LIST  TARGET)  BS'SCLOSEDET 
ECT-))  MARK+'T; 

( *  Heading  dev i at i on  of  10  or  less  degrees=FARDETECT ) 

IF  MARK  = "  ‘NIL 
MAXDIFF  <=  10 

THEN  (SETO  BSS'FARDETECT  (APPEND  (LIST  TARGET)  BSS'FARDETECT ) 
)  MARK* 1 T ; 

IF  MARK  =  'NIL 
MIND  IFF  <=  10 

THEN  (SETO  BSSFARDETECT  (APPEND  (LIST  TARGET)  BSSFARDETECT) 
)  MARK* ' T ; 

( *  Rule  d  e  t  e  r  rn  i  n  e  s  w  h  i  c  h  i  s  t  h  e  b  e  s  t  t  o  d  e  t  e  c  t  b  y  e  x  a  rn  i  n  i  n  g 
deviation  from  MIDPOINT,  Best  wins  and  is  DETECTPT) 

IF  OLDMIDIFF  >  MID  IFF 
THEN  B  3  S  D  E  T  E  C  T  P  T  *  T  A  R  G  E  T 
OLDMIDI FF*MI DIFF ; 

(*  For  sites  with  coverage  more  than  10  degrees  away  NEARPT 
is  s e t  t o  t he  site  w i t h  c  1  o s e s t  d e v i a t i o n  N E A R D I F F ) 

IF  MARK  =  'NIL 

BSSNEARDIFF  >  MI  NO  IFF 
THEN  B  S  S  N  E  A  R  P  T  *  T  A  R  G  E  T 

B3SNEARD I FF*M I  NO  IFF  : 


IF  MARK  =  'NIL 

BSSNEARDIFF  >  MAXDIFF 
THEN  BSSNEARPT*TARGET 

B  3  S  N  E  A  R  0 1 F  F  *  M  A  X  D I F  F ; 

( *  T o  k e e p  t h e  1 o o p  g o i n g  t h e  1 i s t  i s  r eset  t o  C D R ) 
THEN  (SETO  TLIST  (COR  TLIST ) ) ; 


(+  edited;  "10-oet-S5  14:23") 


T 


(HELP 

[LAMBDA 

(PROS 

"This  is 


NIL 

(READ) 

(printout  T  T 

the  SENTINEL  Decision 
T  T 


Aid  Operator’s 


Manual . “ 


"The  basic  command  for  invoking  SENTINEL  is" 

T 

"(METASCHEDULER  MESSAGE)  when  MESSAGE  is  any  valid  SIMCOPE 
message . " 

T 


"(MODIFY)  can  be  used  after 
ny  of  the  parameters  of  the 
t. ion . " 


every  launch  report  to  modify  a 
S I M  C  0  P  E  m  e  s  s  a  g  e  u  n  d  e  r  c  o  n  s  i  d  e  r  a 


T  T 

"  V  o  u  c  a  n  n  o  t  u  s  e  ( M  0  D I F  Y )  o  n  S  Y  3  o  r  I H  T  r  e  p  o  r  t  s  h  o  w  e  v  e  r  ,  " 

T  T 

"To  initialize  SENTINEL  and  restore  actors,  events  and  coun 
t  e  r  s  t  o  the  p  r  o p e  r  v  a  1 u  e  s  t  y p  e  i n  ( SENTINEL),  " 

T  T 

"To  see  SENTINEL  in  operation,  there  are  several  example  me 
s  s  a  q  e  s  w  h  i  c  h  c  a  n  b  e  u  s  e  d  t  o  d  e  rn  o  n  s  t  r  a  t  e  o  p  e  r  a  t  i  o  n : " 

T 

"For  intelligence  reports  use:  INTA,  INTB  or  INTC," 

T 

"For  s e  n  s  o r  s  t  a  t u  s :  S Y  S  M 3  G A ,  S Y S  M S G  B ,  S  Y  S  M 3  G  C ,  o  r  S Y S M S G  D . " 

T 

"For  first  pass  indications:  ADS1A,  ADS1B,  ADS1C,  AD81D,  AD 
SliJ , " 

T 

"For  further  launch  reports  use:  ADS2A,  A0S2B,  ADS2C  and  BS 
SA,  BSSB ,  and  BS8C." 

T  T 

“Use  them  in  the  following  fashion:  (METASCHEDULER  INTA)  an 
d  so  on , " 


T  T 

"To  e x it  t h i s  p r o g r a m  t y p e  NIL  folio w e d  b y  a  c a r r i a g e  ret u r 
n  <CR>  now,  Type  in  T  <CR>  if  you  wish  to  see  the  troublesh 
ooting  section," 

T) 

(SET Q  READ  (RATOM  NIL  NIL)) 

( CDND 

((NULL  READ) 

(RETURN))) 

(printout  T 

"The  following  are  various  troubleshooting  aids  which  have 
b e  e  n  he! p  f u 1  i n  t  h e  p a s  t , " 

T  T 

"Have  the  POLAR,  SCENARIO  and  SENTINEL  files  been  loaded  in 


"it  not,  use  trie  iluau  filename;  command  to  ioaa  in  tnese 
files." 

T  T 

"The  RS232 . DCOM,  LDI ,  and  FXPR INTER . DCOM  files  may  also  be 
useful  to  LOAD  in  at  this  time." 

T 

"The  rulesets  must  all  be  compiled;  this  is  especially  true 
w  h  e  n  s  t  a  r  t  i  n  q  u  p  t  h  e  system  fro  rn  s  c  r  a  t  c  h  . " 

T  T 

"Use  the  (*  RuleSetName  ER)  command  first,  then  use  (contro 
1)  X  to  fetch  the  menu,  From  the  menu  select  OK  to  compile 
t h e  r u 1 e s e t  a n d  r e t u r n  y o u  to  LI S P . “ 

T  T‘ 

"The  rulesets  to  handle  SYS,  I  NT  and  ADS-1  messages  are:  MS 
GHandler,  ADSlConf idence,  Regions,  ADSIFeatureSet,  INTELAna 
1  y  s  t ,  I N  t  E  L  0  o  m  m  e  n  t ,  C  o  u  n  t  r  i  e  s ,  S  V  S  Anal  y  s  t ,  S  V  S  0  o  rn  rn  e  n  t ,  G  3-A  n 
a  1  v  st,  S  Y  S  C  h  e  c  k ,  C  3  B  o  a  r  d  a  n  d  C  o  rn  b  i  n  a  t  u  r  i  a  1 . " 

T  T 

"Insure  that  the  commands  featuring  rule  sets  are  typed  in, 
just  as  they  are  above.  A  change  of  even  one  letter  or  its 
capitalization  will  result  in  an  UNBOUND  statement.") 

(printout  T  T 

"To  insure  all  first  pass  messages  can  be  handled,  type  in 
(METASCHEDULER  INTA)  and  then  use  ADS'lA  and  SYSMSGA  in  plac 
e  of  I N T A  t- o  v erif  y  f  i  r s t  p a s s  rn e s s a g e  p r  o c e s s  i  n g  . " 

T  T  "Use  HELP  to  see  this  list  again," 

T  T 

"If  you  wish  to  exit  type  in  NIL  now,  otherwise  type  T  to  p 
r  o  c  e  e  d  t  o  s  e  c  o  n  d  p  a  s  s  rn  e  s  s  a  g  e  p  r  o  c  e  s  s  i  n  g .  " 

T ) 

(SETQ  READ  (RATOM  NIL  NIL)) 

(COND 

((NULL  READ) 

(RETURN))) 

(printout  T  T 

"To  h a n d  1  e  A D S - 2  me s s a g e s  t h e  foil o w  i n g  r u  1  e  sets  rn u s t  b e  c 
omp  i  1  ed  :  AD82Conf  i  dence ,  ADS2FeatureSet ,  BoardVot  i rig ,  Exp  1  a 
in,  Explains,  EXTHIGHConf idence,  HIGHConf idence,  MIXEDConfi 
dence,  LOWConf idence,  EXT LOWConf idence,  HIGH Ranking,  LowRan 
king, ' Speculate,  UNKNOWN,  HOSTILE,  TESTHYPO,  UNRESOLVED,  Se 
n s o r  0 h  e  c  k ,  D e  t  e c  t  C h e c  k ,  He  a d i n g C h e  c k ,  T  a  r  g  e  t  C h e  c k ,  T r  e n d C h e 
ck.  Sensor Map," 

T  T 

"To  check  out  ADS2  message  processing  capabilities,  use  (ME 
TASCHEDULER  ADS2A)  to  verify  that  all  rule  sets  have  been  c 
ornpi  led .  " 

T  T 

“When  you  are  ready  to  exit  this  portion,  type  in  NIL  other 
wise  type  in  T  to  see  the  rule  sets  which  must  be  compiled 
f  o  r  B  S  S  rn  e  s  s  a  g  e  p  r  o  c  e  s  s  i  n  g . " 


just  as  tney  are  a cove .  a  cnange  ot  even  one  letter  or  its 
capitalization  will  result  in  an  UNBOUND  statement.") 

(printout  T  T 

"To  insure  all  first  pass  messages  can  be  handled,  type  in 
(METASCHEDULER  INTA)  and  then  use  ADSiA  and  3YSMSGA  in  plac 
e  of  INTA  to  verify  first  pass  message  processing." 

T  T  "Use  HELP  to  see  this  list  again." 

T  T 

"If  you  wish  to  exit  type  in  NIL  now,  otherwise  type  T  to  p 
roceed  to  second  pass  message  processing." 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

(COND 

((NULL  READ) 

(RETURN))) 

(printout  T  t 

"To  handle  ADS-2  messages  the  following  rule  sets  must  be  c 
ornp i  1  ed :  ADS2Conf  i dence ,  ADS2Feature8et ,  Board Vot i rig ,  Exp  1  a 
i n ,  Exp  1  a i n2 ,  EXTH I GHConf i dence ,  H I GHConf i dence ,  M I XEDConf i 
dence,  LOWConfi dence,  EXTLOWConfi dence,  HIGHRankinq,  LowRan 
king,  '  Speculate,  UNKNOWN,  HOSTILE,  TESTHYPO,  UNRESOLVED,  Se 
nsorCheck,  DetectCheck,  HeadirigCheck,  TargetCheck,  TreridChe 
ck,  Sensor Map." 

T  T 

"To  c h e c k  o u t  AD S 2  m e s s age  p r o c e s s  i  n g  c a p a b i 1 i t i e s ,  use  ( M E 
TASCHEDULER  ADS2A)  to  verify  that  all  rule  sets  have  been  c 
ornpi  led . " 

T  T 

"When  you  are  ready  to  exit  this  portion,  type  in  NIL  other 
w i s e  t y p e  in  T  t o  s e e  the  r u 1 e  s e t s  w h i c h  m u s t  b e  c o m piled 
f  o  r  B  S  S  rn  e  s  s  a  g  e  p  r  o  c  e  s  s  i  n  g . " 

T  T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

( COND 

((NULL  READ) 

(RETURN)) ) 

(PRINTOUT  T  T 

"There  are  o  n  1  y  s  e  v  e  n  rule  s  e  t  s  w  h  i  c  h  rn  u  s  t  b  e  c  o  m  pile  d  f  o  r 
BSS  message  processing:  BSST rendu heck,  BSSensor Check,  BSSTG 
T  C  h  e  c  k ,  B  S  S  HOSTILE,  B  S  S  TEST,  B  S  S IJ  N  K  N  0  W  N ,  B  S  S  U  N  R  E  S  0  L  V  ED." 

T  T 

"Test  o u t  t h e  c o r r e c t  o p e r a t  i o ri  o f  S E N T I N EL  f o r  B S S  m e s s a g e 
s  b  y  u  s  i  n  g  t  h  e  (  META  S  C  H  E  D  IJ  L  E  R  B  S  S  A )  c  o  m  rn  a  n  d .  " 

T  T 

"This  co  n  c  1  u  d  e  s  t  h  e  t  r  o  u  b  1  e  s  h  o  o  t  i  n  g  s  e  c  t.  ion. " 

T]) 

(HELP) 

39* 

NIL 
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us  my  ^niunoum  luenue 

RuleSet  HIGHConfidence 


Last  Edited:  3-Oct-65  1S;££;10  by 

Workspace  Class:  Boards; 
Compiler  Options:  ; 

Tempo r  a  r  y  V  a  r  s :  READ  L  0 W V  0 T  E 

ORLIST  HYPO!  HYP 02  WIN!  L0S1; 
Control  Structure:  DO ALL; 

*  >k  +  *:  + 


HIGHVOTE  MARK  XVAR  YVAR  FACT 


(*  HIGHConfidence  invoked  from  AD32Conf idence,  First  checks 
to  verify  CONFIDENCE  is  HIGH  using  BoardVot ing .  Confidence 
w ill  be  r e v i s e d  t o  L 0 W  if  L 0 W V 0 T E  is  1 a r g e  e n o u g h .Confide n 
c e  the n  c alls  on  HI G H R a n k i n g  t o  r a n k  o r d e r  t h e  b o a r d s  f o r  e 
x  p 1  a n a  t i o n .  HIGH  C o  n f i d e  n c e  t  h  e  n  r  u n s  t  h  o r u g h  t  h e  h  y p o  t h  e  s  i  s 
to  decide  the  ADS-2  Output  and  explains  output  to  the  user 
using  two  explanation  levels  with  EXPLAIN.) 

THEN  f  F:  u  n  R  S  '  B  o  a  r  d  V  o  t  i  n  g ) 

XVAR*0  MARK* ' NIL; 

( *  N o r mall y  3  or  m o r e  v o t e s  s h o u Id  be  HIGH ) 

IF  HIGHVOTE  >=  3 

THEN  (PRINTOUT  T  "HIGH  Confidence  Level  Confirmed."  T) 

MARK* ' T; 

(*  In  cases  of  ties,  blank  Intel  Board  the  HIVALNUMBER  in 
T  F:  E  N  D  B  o  a  r  d  i  s  c  o  n  s  u  1 1  e  d  a  s  tie  b  r  e  a  k  e  r  . ) 

IF  MARK  =  'NIL 

(PLUS  HIGHVOTE  LOW VOTE)  =  4 
THEN' X V AR*TRE N D B o a r d  :  H I V A L N LI M B E R ; 

IF  XVAR  >  2 

THEN  HIGHVOTE* (PLUS  HIGHVOTE  1); 

IF  XVAR  >  W 

y't  y  |ii|  p.)  ^  =  2 

THEN  LOW VOTE* (PLUS  LOW VOTE  1); 

( *  W h e n  rn a  j o r  i  t y  p o i  n t s  t o  L 0 W  belief  re v  i  s  i  o n  h a p p e n s  ,  ) 

IF  LOW VOTE  >  HIGHVOTE 
TRANSFER  =  'NIL 

THEN  ( P  F:  I N  T  0  U  T  T  "  C  o  n  f  i  d  e  n  c  e  R  e  v  i  s  e  d  t  o  L  0  W  ,  "  T ) 

(  F:  u  n  R  S  '  L  0  W  C  o  n  f  i  d  e  n  c  e )  (  3  T  0  P ) ; 


i 


£ 

f 


F  ‘, 

a 


U 


(*  For  those  that  didn't  make  it  first  time  around.) 
IF  MARK  =  'NIL 


d  leading  hvpo  with  LG81.  Priority  is 
TEST) UNRESOLVED) UNKNOWN ,  t i es  are' updated . ) 

THEN  (RunRS  'HOSTILE)  (RunRS  'TESTHVPO)  MARK* 'NIL; 

IF  HOSTILENUM  >=  TESTNUM 
THEN  HYF’01*' HOSTILE 

HYP02* ' TEST  MARK* ' T; 

IF  MARK  =  'NIL 
THEN  HYP01* 'TEST 

HYP02* 'HOSTILE; 

( *  T a k e s  a d v a n t a g e  t h a t  t h e  v a r i a b  1  e  e n d i n g  to  aTInumbe r  v a 
riables  which  are  the  number  of  factors  trigerred  in  each 
hypothesis  to  place  these  values  in  WIN1  and  L0S1) 

THEN  f RunRS  'UNRESOLVED)  MARK* 'NIL 

W  INI*  ( M  K  A  T  0  M  ( C  0  N  CAT  H  Y  P  0 1  '  N  !J  M ) ) 

L 0 S 1 * ( M KATO M  ( 0 0 N CAT  H Y P 0 2  ' N U M ) ) ; 

IF  UNRESOL VEDNUM  >  (EVAL  WIN1) 

THEN  HYP 02* HYP 01 

H  Y  P  0 1  *  ’  U  N  R  E  S  0  L  V  E  0  M  A  R  K  *  '  T ; 

IF  MARK  -  'NIL 

IJNRESOL VEDNUM  >  (EVAL  LOSi) 

THEN  H  V P 0 2  * ' U  N  R  E  S 0 L V E  D ; 

THEN  ( RunRS  ' UNKNOWN )  MARK* 'NIL 

W I N 1 * ( M  K  A  T  0  M  f C  0 N  CAT  H  Y  P  0 1  ' N  U  M )  ) 

L  0  S 1  *  ( M  K  A  T  0  M  ( C  0  N  CAT  H  V  P  0  2  '  N IJ  M  )  )  ; 

IF  UNKNOWNNUM  >  (EVAL  WIND 
THEN  HYP02*HYP01 

H  Y  P  01*'  LI  N  K  N  0  W  N  M  A  R  K  *  '  T  ; 

IF  MARK  =  'NIL 

UNKNOWNNUM  >  (EVAL  LOSI) 

THEN  HYP02* ' UNKNOWN; 

(*  Now  the  difference  in  ranking  between  HYP 01  and  HYF’02  i 
s  e x a m i n e d  t o  s e e  w h e t h e r  it  i s  s i q nif i c a n t ,  ) 


1 ■  u  ■  r  ■  i*.  j  ■  rrn  r  v1  ■  .  t 
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THEN  MARK*(DIFFERENCE  (EVAL  WIN!)  (EVAL  L081)) 

(PUTPROP  EVENTMATCH  ' P2C0HFIDENCE  ' HIGH) ; 

IF  MARK  >=  3 

THEN  (PUTPROP  EVENTMATCH  1 P2HVP0  HYPOl); 

IF  (6ETPROP  EVENTMATCH  ’ P2HYP0)  =  ’NIL 
HYPOl  =  ’HOSTILE 
THEN  MARK*’T; 

IF  (GETPROP  EVENTMATCH  ’ P2HYP0)  =  ’NIL 
HYPOS  =  ’HOSTILE 
THEN  MARK* 1  T; 

(*  When  HOSTILE  is  HYPOl  or  HYP02,  cliff erence<3,  then  ex 
amine  THREATNUMBER  and  NOTHREATNUMBER  to  decide  EVENT 

is  hostile.) 

IF  MARK  =  ’T 

THREATNUM  >=  2 
NOTHREATNUM  <  2 

THEN  (PUTPROP  EVENTMATCH  ’ P2HYP0  ’HOSTILE); 

(*  When  all  else  fails,  select  HYPOl  to  be  it.) 

IF  (GETPROP  EVENTMATCH  ’ P2HYP0)  =  ’NIL 
THEN  (PUTPROP  EVENTMATCH  ’ P2HYP0  HYPOl); 

(*  OUTPUT  SECTION) 

THEN  (PRINTOUT  T  T  “ADS  PASS  2  "  EVENTMATCH  T  T  "1.  DETECTE 
D:  "  PRESENTIME  T)  READ*’ NIL; 

IF  SENSORNUMBER  =  ’ S2 
THEN  READ* ’SOUTH; 

IF  READ  =  ‘NIL 
THEN  READ* ’NORTH ; 

THEN  (PRINTOUT  T  "2.  ADS:  "  READ  T  "3.  EVENT  TYPE:  "  (GETPR 
OP  EVENTMATCH  ’ P2HYP0 )  T  "4.  BSS  DETECT:  "  DetectBoard : DETE 
CTPT  T)  READ* ’YES; 

(*  Since  we  are  in  HIGH  confidence  range,  THREAT  will  be  as 
s u m e d  t o  b e  Y E S  u n 1 e s s  s p e c i f i c  r u 1 e s  be  1 o w  t r i g g e r  .  ) 

IF  (GETPROP  EVENTMATCH  ’ P2HYP0)  -=  ’HOSTILE 
THREATNUM  <  2 
THEN  READ* ’HO; 

IF  (GETPROP  EVENTMATCH  ’ P2HYPO)  =  ’TEST 
THEN  READ*’ NO; 


'TEST 


IF  (GETPRQP  EVENTMATCH  1 P2HYP0)  = 

THEN  READ*- 1  NO; 

THEN  (PRINTOUT  T  "5.  THREAT:  ”  READ  T  “6.  CONFIDENCE:  HIGH" 
T  T  T  "  If  you  wish  further  explanation  type  T,"  T  "Otherw 
ise,  type  NIL  to  Proceed."  T) 

F A C 1 0 RLIST*(LI S T  D e t e c 1 6 o a r d : E X P N U M B E R  'DetectBoard  M A T C H B o 
ard : EXP NUMBER  'NATCHBoard  Intel Board : EXPHUMBER  ' IntelBoard 
TRENDBoard : EXPNUMBER  ' TRENDBoard  SYSBoard : EXPNUMBER  ' SYSBoa 
rd) 

(SETQ  READ  (RATOM  NIL  NIL)); 

IF  READ  =  'NIL 
THEN  (STOP); 

( *  W h e n  H Y P 0  is  TEST,  L 0 W F: a n R  i s  b e 1 1 e r  w a y  to  e x plain.)  - 
IF  (GETPROP  EVENTMATCH  ' P2HYP0)  =  ‘TEST 
THEN  ( R  u  n R  S  ’ L  0  W R a  n  k i n  g )  M A  R K  * ' Y ; 

IF  MARK  ~=  'Y 

THEN  ( RunRS  ' H I GHRank i ng ) ; 

THEN  (PRINTOUT  T  "This  is  F ACTOR! :  "  EXPLA I NBoard : FACTOR! 

T  "This  is  FACT0R2:  "  EXPLA I NBoard : FACTORS  T  "this  is  FACTO 
R3:  "  EXPLA I NBoard: FACTORS  T  "this  is  Factor4 :  "  EXPLAINBoa 
rd : FACT0R4  T  "this  is  Factors :  "  EXPLA I NBoard : FACTORS  T) 
(RunRS  'Explain); 

#&( Ru  1  eSet Source  "SIU0 .  zl  [ :  .  Je'S  .  12 " ) 

60* 

NIL 

60* 

NIL 

60* 

NIL 

60* 

NIL 

60* 

NIL 
6  0  * 

NIL 

60* 

NIL 

60* 

NIL 

60* 

NIL 

60* 

NIL 
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us  my  <j.  n  i  u  n  r.  a  r  i  r-.  my 

RuleSet  HIGHRanking 

Last  Edited:  3- Oct- 85  IS; 33; 20  by 

Workspace  Class:  Boards; 

Compiler  Options:  ; 

Temporary  Vars:  FOUND  FI NOSUM  FCOUNTER  FACTORNUM  STOP MARK 

Control  Structure:  WHILEALL; 

Iteration  Condition:  T; 

4“  :4“  ’4*  •4‘  4*  4: 4*  *4* 


(*  HIGHRanking  uses  a  WHILE  LOOP  to  examine  each  Board's  EX 
PNUMBER  from  the  given  FACTORLIST.  Each  FACTORLIST  should  b 
e  set  in  the  appropriate  Confidence  Ruleset.  HIGHRanking  th 
eri  orders  them  by  number.  In  this  case  the  higher  the  nurnbe 
r,  up  to  four,  the  better  in  case  of  tie  prioritize  by  plac 
e.  Results  are  placed  in  EXPLAINBoard  in  the  order  F  A  0  T  0  R 1  > 
FACTOR'S ...  >FACT0R5  where  FACT0R1  would  explain  first.) 

{!!>  THEN  FCOUNTER*® 

F I  ND8UM*4 
ST0PMARK*6; 


(*  After  initial ization,  gaps  are  checked.  Intel Board  may  b 
e  b 1  a n k  w h e n  n o  I N T  rep o r t s  r e c e i v e d .  DetectBoa r d  a n d  t h u s 
L  S  H  E  A  0 1 N  G  in  a  y  b  e  '  X  X  X  w  h  e  n  m  i  s  s  i  1  e  he  a  d  i  rig  is  n  o  t  d  i  s  c  e  r  n  i 
ble.  Therefore,  appropriate  spaces  on  the  EXPLAIHBoar 

d  are  set  to  NIL.) 


-r  1 !  >  IF  Intel  Board ;  EXP  NUMBER  =  O 
THEN  S'T0PMARK*5 

EXPLAI N Board ; FACTORS* *  NIL; 

•!'!!>  IF  Inte  1  Board :EXPNUMBER  =  O 

M  ATCHBo a r d : L  S  H  E  A  D I N G  =  ' X X 1 

THEN  ST0PMARK*4 

EXPLAINBoard : FACT0R4* ’ NIL; 

{ 1 !  T  IF  Intel  Board:  EXP  NUMBER  --=  0 

MATCHBoard : LSHEAD ING  =  ’ XXX 
THEN  ST0PMARK*5 

EXPLAINBoard : FACTORS* ' NIL; 


( +  Iteration  starts  here,  continues  with  the  FCOUNTER  until 
it  reaches  the  STOPMARK  set  above.) 

THEN  FOUND* (LISTGETi  FACTORLIST  FINOSUM); 

(*  Creates  the  FACTOR  number  using  a  counter.) 


it  reacnes  zne  siukm hk»\  sez  ao ove.j 
THEN  FOUND* (LISTGET1  FACTORLIST  FINDSIJM); 

(*  Creates  the  FACTOR  number  using  a  counter.) 

IF  FOUND  ~=  'NIL 

THEN  FCOUNTER* (PLUS  FCOUHTER  1) 

FACTORNUM*(CONCAT  'FACTOR  FCOUNTER) 

FACTORNUM* ( MKATOM  FACTORHUM ) ; 

(*  Once  STOPMARK  is  reached  the  Rule  Set  stops.) 

IF  FCOUNTER  >«  STOPMARK 
THEN  (STOP); 

(*  The  appropriate  Board  is  marked  into  a  FACTOR  number  on  ' 
the  EXPLAINBoard. ) 

IF  FOUND  ■-=  'NIL 

THEN  ( Put'v'a lue  EXPLAINBoard  FACTORNUM  FOUND) 

(SET Q  FACTORLIST  (REVERSE  FACTORLIST)) 

(LI STRUT  FACTORLIST  FOUND  5) 

(SET Q  FACTORLIST  (REVERSE  FACTORLIST)); 

(+  Having  exhausted  all  the  finds  for  let's  say  3,  lets  loo 
k  for  2  and  then  i.) 

IF  FOUND  =  'NIL 

THEN  FINDSUM*(SUB1  FI NOSUM); 

(*  Once  FIND SUM  is  less  than  one  the  normal  range  of  EXPNUM 
B E F: S  h a s  b e e n  r e a c h e d  .  ST 0 P ) 

IF  FIND SUM  <  1 
THEN  (STOP); 

ff & ( F; u  1  eSetSource  "  S I U @  .  z I  [  i  .  J e B .  1 3 " ) 

66* 

NIL 

66* 

NIL 

66* 

NIL 

66* 

NIL 

66* 

NIL 

66* 

NIL 

66* 

NIL 

66* 

NIL 

66* 

NIL 

66* (REDO  99) 


(+  edited:  "is-Jul-ss  11:47") 


(INTELHANDLER 

[LAMBDA  (INTMSG)  C*  edited:  ”22-Jul-S5  14:17") 

(PROG  RCXCOUNTRY 
ACTION 
ORGCOUNTRY 
CASUAL TYLEVELS 
INTSOURCE 
EQUATION 

INTELMSG)  <*  edited;  "is-Jul-SS  1 

(SETQ  INTELMSG  INTMSG) 

(SETQ  INTSOURCE  (CADR  INTELMSG)) 

(SETQ  CASUALTYLEVELS  ( CADDAR  INTELMSG)) 

(SETQ  DAYTIME  (CADDR  (CADAR  INTELMSG))) 

(SETQ  EQUATION  (CADR  (CADAR  INTELMSG))) 

(SET  Q  0  R  G  C  0 IJ  N  T  R  Y  ( C  A  R  E  Q  U  A  T 1 0  N ) ) 

(SETQ  ACTION  (CADR  EQUATION)) 

(SET  Q  R C  X  C  0 U N  T  R Y  ( C  A  D D R  E  Q  U A  T 1 0  N  )  ) 

(printout  T  “THIS  IS  INTSOURCE  "  INTSOURCE  T 
"THIS  IS  CASUALTYLEVELS  " 

CASUALTYLEVELS  T  "DAYTIME  "  DAYTIME  T 
"ORGCOUNTRY  " 

ORGCOUNTRY  T  "ACTION  "  ACTION  T 
"RCX COUNTRY  " 

RCX COUNTRY  T) 

(RunRS  (QUOTE  INTEL Analyst] ) 

(INTELHANDLER) 

1S  + 

NIL 
16+ 

NIL 

16+ (PP  H I VALCALL ) 


(HIVALCALL 

[LAMBDA  (LAUNCHSITE) 


<*  AMRL  "  4-  Jun- 35  16;  50") 


<+  Given  the  HIV  ALT  G  T  LIS  T  and  the  LAUNCHSITE,  HI  VALCALL  use 
FAN  to  produce  the  high  value  target  list  and  embeds  it  in  the  property  list  of  the 
aunchsite  under  the  name  HI va.lt AG) 


(PROG  NIL 

(SETQ  TARGETLIST  HI VALTGTLIST ) 

(FAN  LAUNCHSITE) 

(PUT PR OP  LAUNCHSITE  (QUOTE  HIVALTAG) 
FANLIST) 

(RETURN]) 

(HI VALCALL) 

17+ 

NIL 

1 7  +  ( Rf  0  0  1  @  0  ) 


us  i riy  *nuo  i  ilc 

RuleSet  HOSTILE 

Last  Edited:  3-Oct-©5  18:36:30  c»y 

W o  r k S  p a c e  C 1  a  s s :  Boar  d s ; 

Compiler  Options: 

Temporary  Vars:  TNUMBER  RMUMBER  MARK; 

Control  Structure:  DOALL; 

4'  4"  4  4*  4*  4*  4* 


(*  HOSTILE  is  a  hypothesis  rule  set  that  provides  a  "text bo 
ok"  example  of  what  a  HOSTILE  event  would  result  in.  This 
example  can  then  be  compared  to  the  feature  set  of  the  even 
t  in  question  and  a  hypothesis  selected,) 

THEN  THUMB ER*0  RNUMBER *0  MARK* 'NIL; 

(*  TNUMBER  records  the  number  of  factors  that  contribute  to 
THREAT,  RNUMBER  number  of  rules  triggered.) 

IF  (GETPROP  EVENTMATCH  'P1IRTVPE)  =  ' TVPE1 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  ' P1IRTYPE)  =  1  TYPE 2 
THEN  RNUMBER* (PLUS  RNUMBER  1); 


IF  (Get Value  Intel  Board  ' INTELCONOITION)  =  'RED 
THEN  RNUMBER* (PLUS  RNUMBER  1) 

T  N  U  M  B  E  R  *  ( P  L  U  S  T  N  U  M  B  E  R  1 ) ; 


I F  ( G e t  V  a  1 u  e  I n  t  e 1 B o a  r d  'INTEL  C 0 N D I T 1 0 N ) 
THEN  RNUMBER* (PLUS  RNUMBER  1) 

T  N  U  M  B  E  R  *  ( P  L  U  S  T  N  U  M  B  E  R  1 ) ; 


YELLOW 


IF  (GETPROP  EVENTMATCH  ' P1C0NF IDENCE )  =  'HIGH 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  '  F'lCONF IDENCE)  =  '  EXTHIGH 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  MATCHBoard : LAUNCHSITE  =  'KNOWN 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  ' P1SENS0R )  >=  ? 

THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  ' P2TVPE)  =  'MATCH 
THEN  RNUMBER* (PLUS  RNUMBER  1); 


lr  fnfi  i  unBoara  ,  LAUNiins i  1 1  =  i\nuwn 
THEN  RNUMBER*- ( PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  'P1SENSQR)  >=  7 
THEN  RNUMBER*- (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  1 P2TYPE)  =  ‘MATCH 
THEN  RNUMBER*- (PLUS  RNUMBER  !),• 

IF  (GETPROP  EVENTMATCH  '  P2SEN80R)  >=  7 
THEN  RNUMBER*-  (  PLUS  RNUMBER  1 )  ; 

IF  (GETPROP  EVENTMATCH  ' P2C0NF IDENCE)  =  'HIGH 
THEN  RNUMBER*- (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  '  P2C0NF IDENCE)  =  ‘EXTHIGH 
THEN  RNUMBER*- (PLUS  RNUMBER  1); 

IF  MATCHBoard : EXPNUMBER  >=  3 
THEN  RNUMBER*- (PLUS  RNUMBER  1) ; 

IF  DetectBoard : EXPNUMBER  =  4 
THEN  RNUMBER*- (PLUS  RNUMBER  2) 

TNUMBER*-  ( PLUS  T NUMBER  1); 

IF  TRENDBoard: EXPNUMBER  >=  3 
THEN  RNUMBER*- (PLUS  RNUMBER  1); 

IF  TRENDBoard: HI VALN UMBER  >  =  3 
THEN  RNUMBER*- (PLUS  RNUMBER  2) 

T N U M BER*- ( P L IJ S  T N I J M B E R  i ) ; 

THEN  (SETO  HOSTILENUM  RNUMBER) 

(SETO  THREATNUM  TNUMBER) ; 

#&(Ru ieSet-Source  “ SWUS .  z I  8 " ) 

75*- 

NIL 

75*- 

NIL 

75*- 

NIL 

75*- 

NIL 


NIL 

75*-  (  R£ 0 0  9 9  ) 


us  my  *  1 1'4 1  CLHfid  iysL- 

RuleSet  INTELAnalyst 

Last  Edited;  3- Oct- 65  1S;01;57  by 
W o r k S p a c e  C 1 a s s :  Re p o r t s ; 

Compiler  Options:  ; 

Temporary  Vars:  OLDCOND  C0UMTRY30URCE  TYPE30URCE 

Control  Structure:  DOALL; 

*  +  *  *  *  f  *  * 


(*  This  ruleset  analyzes  incoming  I  NT  reports  and 
updates  the  IntelBoard.) 

IF  ACTION  >  a 

THEN  (SETQ  I  NT TV PE  'POSITIVE); 

IF  ACTION  <  @ 

THEN  (SETQ  INTTYPE  ‘NEGATIVE) 

(SETQ  ACTION  (ABS  ACTION)); 

IF  ACTION  =  8 

THEN  (SETQ  CONDITION  'TEST) 

(SETQ  ACTION  0); 

IF  ACTION  =  3 

THEN  (SETQ  CONDITION  'RED); 

IF  ACTION  =  4 

THEN  (SETQ  CONDITION  ’RED); 

IF  ACTION  =  1 

THEN  (SETQ  CONDITION  'YELLOW); 

IF  ACTION  =  £ 

THEN  (SETQ  CONDITION  'YELLOW); 

IF  ACTION  >=  5 

THEN  (SETQ  CONDITION  'GREEN); 

( ;+;  N  e  g  a  t  i  v  e  c  o  n  d  i  t  i  o  n  s  a  r  e  p  r  o  cessed:  All  n  e  g  a  t  i  v  e 
conditions  except  -YELLOW  result  in  YELLOW. 

- Y E  L  L  0  W  r e  s u 1 1  s  i n  G  REE  N .  ) 

IF  INTTYPE  =  'NEGATIVE 
CONDITION  --=  'YELLOW 
THEN  (SETQ  INTTYPE  ’YELLOW); 


270 


IF  INTTYPE  =  'YELLOW 

THEN  (SETO  CONDITION  'YELLOW) 

(SETQ  INTTYPE  'NEGATIVE); 

IF  INTSOURCE  >=  @ 

THEN  (SETQ  TYPESOUF.CE  'OPEN); 

IF  INTSOURCE  <  0 

THEN  (SETQ  TYPESOURCE  'INTEL); 

(*  This  section  provides  the  output  to  the  user.) 

THEN  (SETQ  COUNTRYNIJM  (ABS  INTSOURCE)) 

(  R  u  n  R  S  1  C  o  u  n  t  r  i  e  s ) 

(SET  Q  C  0  U  N  T  R  Y  8  0 IJ  R  C  E  C  0  U  N  T  R  Y ) 

(SET Q  C  0 U  N  T  R Y  N  U M  0 R G C  0 U N T  R Y ) 

( F;  u  rt  R  S  '  C  o  u  n  t  r  i  e  s )  ( C  F ) 

(PRINTOUT  T  "I NT  message  acknowledged: "  T  TYPESOURCE  "  sour¬ 
ces  from  the  country  of:  "  COUNTRY SOURCE  T  "reveal  existenc 
e  of  CONDITION:  "  CONDITION  "  for  the  country  of:  "  COUNT R 
Y  T) 

( P u t V a  1 u e  I n t e 1 B o a r d  ' I N T E L D A Y TIME  DA Y TIME); 

(*  The  Intel  Board  is  updated  based  on  the  priority  RED>TEST 
> YELLOW) GREEN) empty  (NIL)  in  case  of  a  tie,  the  Intel  Board 
i  s  c  h  a  n  g  e  d  f  o  r  r  e  c  e  n  c  y  .  ) 

I F  I  rite  1  Board  :  I NTELCOND I T I  ON  =  '  YELLOW 
CONDITION  =  'GREEN 
THEN  (STOP); 

I F  I  rite  1  Board :  I  NTELCOND  I T I  ON  =  '  TEST 
CONDITION  =  'YELLOW 
THEN  (STOP); 

IF  I  rite  1  Board :  I  NTELCOND  I T I  ON  =  'TEST 
CONDITION  =  'GREEN 
THEN  (STOP); 

I F  I nte 1  Board : I NTELCOND I T I  ON  =  ' RED 
CONDITION  -=  'RED 
THEN  (STOP); 

(*  This  code  fills  out  the  Intel  Board) 

THEN  ( P  u  t  V  a  1  u  e  I  n  t  e  1 B  o  a  r  d  '  S  0  U  R  C  E  T  Y  P  E  S  0  IJ  R  C  E ) 

( P  u  t  V  a  1  u  e  I  n  t  e  1 B  o  a  r  d  '  S  0  U  R  C  E  C  0  U  N  T  R  Y  C  0  U  N  T  R  Y  S  0  U  R  C  E ) 

( P u t V a 1 u e  I n t e 1 B o a r d  ' REPORTE D C 0 U N T R Y  C 0 U N T R Y ) 

( P u t V a  1 u e  I n t e 1 B o a r d  ' I N T E L T Y PE  I N T T Y P E ) 

(PRINTOUT  T  "Intel Board  updated.  "  T); 

• 

( *  Final! y ,  t. h e  C 0 M M E N T  o n  t h e  I n t e  1 B o a r d  is  filled.  ) 

THEN  (RuriRS  '  INTELComment ) ; 

( Rule S e t S o u r ce  " L V U 0 . z I [ : . P 9 B.29") 


us  i  ny  *  i  m  i  CLuuuiiiieri  l- 

RuleSet  INTELCornrnent 

Last  E  dite d :  3- O ct-  35  1  3;  02: 59  b y 

W  o  r  k  S  p  a  c  e  Class:  F:  e  p  o  r  t  s ; 
Compiler  Options:  ; 

T e m p o r a r y  V a r s :  L S V AR  L V A R ; 

Control  Structure:  DOALL; 

*  *  ■+:  +  *  *  :+:  + 


( *  This  rule  set  is  i n v o k e d  f r o m  u p o n  r e c e i p t  of  a ri  I N T 
message  and  places  an  EXP NUMBER  and  a  COMMENT  on  Intel 
Board,  based  on  I  NT EL CONDITION  and  SOURCE.) 


THEN  Intel  Board  : EXPNUMBER  *  Q; 

I F  I  rite  1  Board  :  I NTELCQND I T I  ON  =  '  RED 
Intel  Board: SOURCE  =  'INTEL 
THEN  Intel  Board  :EXPNUMBER  «■  4; 

IF  In t e 1 B o a r d : I N T E L C 0 N D I T 1 0 N  =  ' V E L L 0 W 
I  rite  1  Board  :  SOURCE  =  'INTEL 
THEN  I  rite  1  Board  :EXF'NUMBER  «•  3; 

I F  I  rite  1  Board  :  I  NT E LOOM D I T I  ON  =  '  RED 
Intel  Board: SOURCE  =  'OPEN 
THEN  Intel  Board  :  EXPNUMBER  *■  3j 

I F  I  rite  1  Board  :  I  NTELCQND  I T I  ON  =  '  YELLOW 
Intel  Board: SOURCE  =  'OPEN 
THEN  Intel Board: EXPNUMBER  *  2 ; 

IF  Intel  Board: I NTELCONO I T I  ON  =  ' GREEN 
I  n  t  e  1 B  o  a  r  d  :  S  0  U  R  C  E  =  '  0  P  E  N 
THEN  Intel Board: EXPNUMBER  *  2; 

IF  Intel  00  ard  :  INTEL'JONDIT  ION  =  'GREEN 
I  rite  1  Board  :  SOURCE  -  '  I  NT  EL 
THEN  Intel  Board:  EXPNUMBER  «■  1; 

(*  The  Two  special  conditions  cause  by  TEST  with  OPEN 
or  INTEL  source  are  handled  separately.) 

I F  I nte 1  Board : I NTELCONO I T I  ON  =  ' TEST 
I  n  t  e  1 B  o  a  r  d  :  s  1 1 U  R  C  E  =  ’  0  P  E  N 
THEN  I  nte  1  Board :  EXPNUMBER  <•  :? 

I  n  te  1  Board  :  COMMENT  4-  '(PRINTOUT  T  T  "INTEL  reports  i 
icate'i  T  "TEST  LAUNCH  is  possible."  T  ) 


IF  I  rite  1  Board :  I NTELGONQ I T I  ON  =  ‘TEST 
Intel Board : SOURCE  =  'INTEL 
THEN  Intel Board : EXPNUMBER  *  3 

I  rite  1  Board  :  COMMENT  *  '(PRINTOUT  T  T  "INTEL  condition 
indicate"  T  "suspected  enerny  TEST  is  likely."  T)  (STOP),* 

IF  Intel Board : EXPNUMBER  =  4 

THEN  IntelBoard: COMMENT  *  '(PRINTOUT  T  T  "INTEL  CONDITION 
STRONGLY  SUGGEST"  T  "IMMINENT  ATTACK  "  T) ; 

IF  IntelBoard: EXPNUMBER  =  3 

THEN  IntelBoard:  COMMENT  *  '(PRINTOUT  T  T  "INTEL  reports  i 
icate"  T  "POSSIBLE  ATTACK"  T); 

IF  IntelBoard: EXPNUMBER  =  2 

THEN  IntelBoard: COMMENT  *  '(PRINTOUT  T  T  "INTEL  condition 
suggest"  T  "ATTACK  is  NOT  likely."  T); 

IF  Intel  Board: EXPNUMBER  =  1 

THEN  Intel  Board '.COMMENT  *  '(PRINTOUT  T  T  “INTEL  reports  " 
"NO  indications  of  ATTACK."  T) ; 


THEN  ( E V  A  L  ( 6 e t  V a  1 u  e  I n t e 1 B  o a r d  ' C 0 M M E  N T ) ) ; 
it  fl:  ( R  u  1  e  S'  e  t  S’  o  u  r  c  e  "  G  W  U  w  .  z  I  [ :  ,  P  G  S .  3  2 "  / 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* 

NIL 

10* (REDO  100/ 


us  my  •}•  l_ u v.' u urn  lueriue 

RuleSet  LOWConfidence 

Last  Edited:  3- Oct- ©5  is; £4; IS  by 

W  o r  R S pace  C  lass:  B  o a r d s ; 

Comp i 1 er  Opt i ons :  i 

Temporary  Vars:  READ  LOW VOTE  HIGH VOTE  MARK  XVAR  WAR  FACT 

CRUST  HYP01  HYP 02  WIN1  L0S1; 

Control  Structure:  DOALLj 


(*  LOWConfidence  invoked  from  ADS2Conf idence,  First  checks 
to  verify  CONFIDENCE  is  LOW  using  BoardVoting.  Confidence  w 
ill  he  revised  to  HIGH  if  HISHVOfE  is  large  enoughConf idenc 
e  then  calls  on  LOW Ranking  to  rank  order  the  boards  for  exp 
1  a  n  a  t i o n .  L  0  W C o  n fide n c  e  t  h e  n  e  x p lain s  o u t  p  ut  t  o  the  user  u  s 
ing  two  explanation  levels  with  EXPLAIN.) 

THEN  ( R u n R S  ' B o a r d V o t i n q ) 

XVAR*0  MARK*  '  NIL; 

( *  N  o  r  in  a  1 1  y  3  o  r  m  o  r  e  v  o  t  e  s  s  h  o  u  1  d  b  e  1  o  w ) 

IF  LOW VOTE  >=  3 

THEN  (PRINTOUT  T  "LOW  Confidence  Level  Confirmed,"  T) 

MARK* ' T; 

(*  When  Intel  Board  is  empty,  the  number  of  votes  is  4,  c 
heck  the  HI VAL NUMBER  to  resolve  the  tie.) 

IF  (PLUS  HIGH VOTE  LOW VOTE)  =  4 
THEN  X V AR*TRE N 0 B o a r d : H I V A L N U M B E R ; 

IF  XVAR  >=  3 

THEN  H I GHVOTE* (PLUS  HIGHVOTE  1); 

IF  XVAR  >  0 
XVAR  <=  2 

THEN  LOW'v'OTE*  ( PLUS  LOW VOTE  1) ; 

(*  When  the  number  of  HIGH VOTES  is  higher  than  for  LOW  V 
OTES,  Belief  Revision  takes  place.) 

IF  HIGHVOTE  >  LOW VOTE 
TRANSFER  =  'NIL 

THEN  (PRINTOUT  T  "Confidence  Revised  to  HIGH."  T) 

( R  u n  R S  'HI G H  C  o  n fide n  c  e )  ( S  T  0  P ) ; 


( *  F  o  r  t  h  o  s  e  t  h  a  t  d  i  d  n  o  t  g  e  t  c  o  n  f  i  r  m  e  d  u  n  t  i  1  a  f  t  e  r 


iKtNUBoarci  was  consu  itea . ) 


IF  MARK  =  'NIL 

THEN  (PRINTOUT  T  "LOW  Confidence  Level  Confirmed,"  T); 

(*  The  following  determines  what  the  first  and  second  le 
ading  hypothesis  are.  HYP01  is  the  closest  with  factor  numb 
er  W I N 1 .  HYP02  in  second  with  L0S1 .  Prioity  is  H08TILE>TES 
T  >  LI  N  R  E  S  0  L  V  E  D  >  U  N  K  N  0  W  N  .  ) 

THEN  (RunRS  ‘HOSTILE)  (RunRS  ’TESTHYPO)  MARK*' NIL; 

IF  HOSTILEHUM  >=  TESTNUM 
THEN  HYP01* 1  HOSTILE 

HYPOS*  ‘  TEST  MARK*'T; 

IF  MARK  =  'NIL 
THEN  HYP01* ' TEST 

HYPOS* ’ HOSTILE; 

THEN  (RunRS  'UNRESOLVED)  MARK* 'NIL 

W INI* ( M K A  T  0 M  ( C  0 H  CAT  H  V P  0 1  ' H U  M ) ) 

L  0 S 1 * ( M  K  A  T  0 M  ( C  0  N CAT  H Y  P 0  2  ' N U  M ) ) ; 

IF  UN RESOL VEDNUM  >  (EVAL  WIN1) 

THEN  HYPG2*HYP01 

HYP01* ' UNRESOLVED  MARK* ' T ; 

IF  MARK®  'NIL 

UN RE SOL VEDNUM  >  (EVAL  L0S1) 

THEN  HYP02*' UNRESOLVED; 

THEN  ( R  u  n  R  S  '  IJ  N  K  N  0  W  N )  M  A  R  K  *  '  N I L 

W I N 1 * ( M K  A  T  0 M  ( C  0 N CAT  H  Y P  0 1  ' N U M ) ) 

L  0  S 1 * ( M K ATOM  ( C  0  N CAT  H  Y P 0  2  ’ N U  M ) ) ; 

IF  UNKNQWNNUM  >  (EVAL  WIND 
THEN  HYP02*HVP01 

H Y P 0 1 * ' U N K N 0 W N  M ARK*  *  T; 

IF  MARK  =  'NIL 

UNKNOWNNIJM  >  (EVAL  LOS1 ) 

THEN  HYP02* ' UNKNOWN ; 

(*  At  the  end  of  this  section,  leading  hypo  is  embedded  in 
the  EVENTLIST  after  heuristics  ascertain  difference) 

THEN  MARK* (DIFFERENCE  (EVAL  WIND  (EVAL  LOS1)) 

( P U T P R 0 P  E V E N T M A T C H  ' P 2 C 0 N FIDENCE  ' L 0 W ) ; 


^KUIKKUF  tVtWUOMIUh  '  HZUUMr  1  UtNUt  '  LUW  ) ; 


IF  MARK  >=  3 

THEN  (PIJTPROP  EVENTMATCH  '  P2HYP0  HYP 01 )  ; 

IF  HYP01  =  ‘UNKNOWN 

THEN  (PUTPRGP  EVENTMATCH  1 P2HYP0  1  UNKNOWN) ; 

IF  HYP01  =  'UNRESOLVED 

THEN  (PIJTPROP  EVENTMATCH  '  P2HYP0  ’  UNRESOLVED) ; 

IF  ( GETPRQP  EVENTMATCH  ‘ P2HYPQ )  =  'NIL 
HYPOS  =  'UNRESOLVED 
THREATNUM  <  2 

THEN  (PIJTPROP  EVENTMATCH  '  P2HYP0  ’UNRESOLVED); 

IF  (GETFROP  EVENTMATCH  1 P2HYP0)  =  ‘NIL 
HYP 02  =  'UNKNOWN 
THREATNUM  <  2 

THEN  (PIJTPROP  EVENTMATCH  '  P2HYP0  'UNKNOWN); 

(*  When  all  else  fails,  select  lead inq  hypothesis) 

IF  (GET PROP  EVENTMATCH  'P2HYP0)  =  'NIL 
THEN  (F'UTPROP  EVENTMATCH  '  P2HYP0  HYF'Ol); 

THEN  (PRINTOUT  T  "this  is  HYP01:  "  HYF‘01  T  "This  is  HYPOS 
"  HYP 02  T); 

( *  FACT  0  R  L  1ST  i  s  n  o  w  e  s  t  a  b  1  i  s  h  e  d  a  n  d  p  e  r  rn  its  L  0  W  o  r  H I G  H  R  a  n 
king  rule  sets  to  order  the  boards  into  an  exp  la 

nation  order.) 

THEN  FACT  0  R  LIST*  (LI  ST  S  Y  S  B  o  a  r  d  :  E  X  P  N IJ  M  &  E  R  '  S  Y  S  &  o  a  r  d  Detect  ft  o 
ard :  EX  PH  UMBER  '  DetectBoard  TRENDBoard  :  EXF'N  UMBER  '  TREND&oard 
MAT CH Board  ;  EXPNUM&ER  '  MATCHBoard  I  rite  1  Board  :  EXF'NUMBER  '  I  nt 
e 1 Board ) ; 

(  +  Context  dependent  reasoning:  when  HYPO  is  HOSTILE,  ra 
nking  is  by  High  numbers,  otherwise  LOW  Ranking,) 

IF  ( GET PROP  EVENTMATCH  ’ P2HYP0)  =  'HOSTILE 
THEN  ( RuriRS  '  H I GHRank  i  rig ) ; 

IF  (GET PROP  EVENTMATCH  ' P2HYP0)  -=  'HOSTILE 
THEN  ( R  u n  R  S  '  L  0 W  R  a  n  k i n  g ) ; 

(*  OUTPUT  SECTION) 

THEN  (PRINTOUT  T  T  "ADS  PASS  2  "  EVENTMATCH  T  T  "1.  DETECTE 
D:  "  PRESENT  I ME  T)  READ* 'NIL; 

IF  SENSORNUMBER  =  ' S2  THEN  READ* ' SOUTH; 


(*  OUTPUT  SECTION) 

THEM  (PRINTOUT  T  T  "ADS  PASS  2  "  EVENTMATCH  T  T  "1.  DETECTE 
D:  "  PRESENTIME  T)  READ*- 1  NIL; 

IF  SENSORNUMBER  =  'S2  THEN  READ*- 1  SOUTH; 


IF  READ  =  'NIL  THEN  READ*- '  NORTH; 

THEN  (PRINTOUT  T  "2.  AOS:  "  READ  T  "3.  EVENT  TYPE:  "  (GET 
PROP  EVENTMATCH  ' P2HYPQ )  T  "4.  BSS  DETECT;  "  OctectBoard : DE 
TECTPT  T)  READ*- '  NO; 

(*  Since  confidence  level  is  LOW  NO  THREAT  assumed.) 

IF  (GETPROP  EVENTMATCH  ' P2HYPO )  =  'HOSTILE 

THEN  READ*- '  YES; 

IF  (GETPROP  EVENTMATCH  '  P2HYP0)  =  '  IJNRESOLVABLE 
THREATNUM  >=  2 
THEN  READ*-'  YES  ; 

THEN  (PRINTOUT  T  "5.  THREAT:  "  READ  T  "6.  CONFIDENCE:  LOW" 

T  T  T  "Type  T  and  a  carriage  return  for  further  explanati 
on,"  T  "Type  NIL  to  proceed."  T)  (RunRS  ‘Speculate)  (SETQ  R 
EAD  (RATUM  NIL  NIL)); 

IF  EXPLA I NBoard : COMMENT  -•=  'NIL  THEN  (EVAL  EXPLA I NBoard  :  CO 
MM  ENT ) ; 

IF  READ  =  'NIL  THEN  (STOP); 

THEN  (PRINTOUT  T  "This  is  FAC TORI :  "  EXPLA I NBoard : FACTO R1 
T  "This  is  FACTORS :  "  EXPLA I NBoard : FACTORS  T  "this  is  FACTO 
R3 :  "  EXPLA I NBoard : FACTORS  T  "this  is  Factor4:  "  EXPLAINBoa 
rd : FACT0R4  T  "this  is  Factor5:  "  EXPLA I NBoard : FACTORS  T)  ( 
RunRS  'Explain); 

#£'<(  Ru  1  eSetSource  "  G-t-UO  .  z  I  [  ;  .  ri59 . 73 " ) 

100* 

NIL 

100* 

NIL 

100* 

NIL 

100* 

NIL 

100* 

NIL 

100* 

NIL 

1 0  @  * ( E  S 2  3  2 . P  R I N  T  ( W  HIGH  W )  T ) 


F COUNTER  FACTORNUM  STOPMARK 


us  my  »i_uwr,drin.  iriy 

RuleSet  LOWRanking 

Last  Edited:  3- Oct- 65  13;34;0S  by 

V o r k  S p  a  c e  C lass:  6  o a r d s ; 
Compiler  Options:  ; 

Temp o r a r y  V a r s :  F 0 U N D  FI N 0 S U I 

Control  Structure:  WHILEALL ; 
Iteration  Condition:  T; 

■4’  :f:  4^  -4-  «4"  *4*  *4" 


( *  L  0  W  R  a  n  k  i  n  q  u  s  e  s  a  WHILE  L  0  0  P  t  o  e  x  a  rn  i  n  e  e  a  c  h  B  o  a  r  d  '  s  E  X  P 
NUMBER  from  the  given  FACTORLIST.  Each  FACTORLIST  should  be 
set  in  the  appropriate  Confidence  Ruleset.  LOWRanking  then 
order  them  by  number,  In  this  case  the  lower  the  number  th 
e  better  in  case  of  tie  prioritize  by  place,  Results  are  pi 
aced  in  EXPLAINBoard  in  the  order  FACT 0 R l > F A C T 0 R 2 . , .  >  F  A  C  T 0 R 
5  where  F ACTOR 1  would  explain  first.) 

{!!}  THEN  F COUNTER*© 

FINDSUM*! 

ST0PMARK*6; 

(*  After  initialization,  gaps  are  checked,  IntelBoard  may 
b e  e  m p  t  y  w  h e  n  n o  I N T  r  e  p  o r t s  r  e  c e i v  e  d ,  L  S HEADING  m a y  b  e  ' X 
X  X  a  n  d  D  e  t  e  c  t  B  o  a  r  d  w  ill  c  o  n  t  a  i  n  n  o  i  n  f  o  w  h  e  n  n  o  d  i  s  c  e  r  n  i 
b  1  e  h  e  a  d  i  n  g  d  e  t  e  c  t  e  d  f  o  r  rn  i  s  s  i  1  e  .  ) 

-I'li'l-  IF  Intel  Board:  EXP  NUMBER  =  @ 

THEN  ST OP MARK *5 

EXPLAI NBoard  :  FACTORS*  'NIL 

-fill-  IF  Intel  Board  :EXPNUMBER  =  @ 

M  A  T  C  H  B  o  a  r  d  :  L  S  H  E  A  D I N  6  =  '  X  X  X 
THEN  ST0PMARK*4 

EXPLAI NBoard : FACT0R4* ’NIL; 

{1 !  >  IF  I nte  1  Board :  EXPNUMBER  e 

M  A  T  C  H  B  o  a  r  d  :  L  S  H  E  A  D I N  G  -  '  X  X  X 
THEN  ST OP MARK *5 

EXPLAINBoard : FACTORS* 'NIL; 

( *  1 1  e  r  a t i o n  s t  a r  t  s  h ere,  c o n t i n  u e  s  w i t  h  t  h  e  F  C 0 U N TER  until 
it  r e a c h e s  t h e  S T 0 P M A R K  s e t  a b o v e  , ) 

THEN  FOUND* (LISTGET1  FACTORLIST  F I  NO SUM) ; 

f  *  C r e a t e s  t he  FA C T 0 R  n u m b e r  u s i n q  a  c o u n ter.  ) 


it  reacnes  tne  s i ukihakix  set  anove.; 

THEN  FOUNDS (LISTGET1  FACTORLIST  FINDSUM) ; 

(*  Creates  the  FACTOR  number  using  a  counter.) 

IF  FOUND  -=  'NIL 

THEN  FC0UNTER*( PLUS  FCOUNTER  1) 

FACTOR N U M 4-  (  C  0  N  C  A  T  'FACTOR  FCOUNTER) 

FACTOR N U M*(MKATG M  FACTORNUM); 

(*  Once  STOPMARK  is  reached  the  Rule  Set  stops.) 

IF  FCOUNTER  >=  STOPMARK 
THEN  (STOP); 

(*  The  appropriate  Board  is  marked  into  a  FACTOR  number  on 
t  h  e  E  X  P  L  A I N  B  o  a  r  d .  ) 

IF  FOUND  •-=  'NIL 

THEN  (Put Value  EXPLAINBoard  FACTORNUM  FOUND) 

(SETO  FACTORLIST  (REVERSE  FACTORLIST) ) 

(List PUT  FACTORLIST  FOUND  5) 

(SET Q  FACTORLIST  (REVERSE  FACTORLIST)); 

(*  Having  exhausted  all  the  finds  for  lets  say  2,  lets  look 
for  3  and  then  4 . ) 

IF  FOUND  =  ‘NIL 

THEN  FINDSUM* (PLUS  FINDSUM  1); 

(*  Once  FINDSUM  has  exceeded  four  the  normal  range  of  EXPNU 
MBER3  has  been  reached.  STOP) 

IF  FINDSUM  >  4 
THEN  (STOP); 

£ &■(  Ru  1  eSetSou roe  " GtUS .  1 1  [ ;  .  n59 . 74 " ) 

6* 

NIL 

B^- 

NIL 

64- 

NIL 

64- 

NIL 

64- 

NIL 

64- 

NIL 

64- (REDO  100) 


(METASCHEDULER 

[LAMBDA  (8IMCQPEMSG)  <+  edited;  "S3- Jui-SS  13:08") 

(PROG  NIL 

(SETO  MESSAGE  SIMCOPEMSG) 

(SETQ  DESTINATION  (CAAR  MESSAGE)) 

(*  SENS  OR  TYPE  is  equivalent  to 

a.DS,  SYS  Of  INTI 

(SETQ  SENSOR TYPE  (CAR  (CADAR  MESSAGE))) 

(SETQ  SENSORNIJMBER  (CAAAOR  (CADAR  MESSAGE))) 

( R  u  ri  R  S  {'  0  U  0  T  E  M  3  G  H  a  r.  d  1  e  r ) 

MESSAGE] ) 

(METASCHEDULER) 

13* 

NIL 

13* 

NIL 

13* 

NIL 

13* (PP  SYSHANDLER) 

(SYSHANDLER 

[LAM  B  D  A  ( S  Y  S  M  S  G  )  (*  e  d  ite  d ;  ’ 1 22-  Ju  I  -  85  1 6;  42"  ) 

(PROG  (OUT AGE TYPE  SENSORCAPAB I L I TY  T IMETORESTORE 

OUT AGE T I ME  SENSORTYPE  SUBSYSTEM 
F  R  A  G  M  E  N  T  R  E  A  S  0  N  S  Y  S  T  E  M  S  G ) 

( 3  E  T  0  S  Y  S  T  E  M  S  G  3  Y  3  M  3  G ) 

(SETQ  SENSORCAPAB I L I T Y  CCADR  SYSTEMS6) ) 

( S ETC  TIMET  0 R  E  S  T  0  R  E  ( C  ADDA R  S  Y S  T  E  M  S  G ) ) 

( S  ETC  FRA  G  M  E  N  T  ( C  0  A  D  A R  3  Y S  T  E  M  S  G )  ) 

(SETQ  OUTAGETYPE  (CAAR  FRAGMENT)) 

(SETO  OUTAGETIME  (CADR  FRAGMENT)) 

(SETQ  SENSORTYPE  (CADAR  FRAGMENT)) 

(SETQ  SUBSYSTEM  ( QADQAR  FRAGMENT) ) 

(SETO  REASON  (CADR  (CDDAR  FRAGMENT))) 

(printout  T  "THIS  IS  OUTAGE  TYPE  "  OUtAGETYPE  T 
"THIS  IS  SENSORCAPAB I LITY  " 

SENSORCAPAB I LITY  T 
"THIS  IS  T IMETORESTORE  " 

T IMETORESTORE  T  "THIS  IS  OUTAGETIME  " 
OUTAGETIME  T  "THIS  IS  SENSORTYPE  " 
SENSORTYPE  T  "THIS  IS  SUBSYSTEM  " 
SUBSYSTEM  T  "THIS  IS  REASON  "  REASON  T) 
( R  u  ri  R  S  ( 0  U  0  T  E  S  Y  S  A  n  a  1  v  s  t  ] ) 

(SYSHANDLER) 

14* 

NIL 

14* 

NIL 

14* (REDO  100) 


us  my  $iuii\c.Liuum  lueriue 

RuleSet  MIXEDConfidence 

Last  Edited;  3-Oct-S5  16:22:54  t*y 

Workspace  Class:  Boards  ; 
Compiler  Options:  ; 

T  e  rn  p  o  r  a  r  y  V  a  r  s  :  M  A  R  K ; 

Control  Structure:  DOALL ; 

♦  +  +  :f  +  * 


(*  MIXEDConfidence  resolves  the  ambiguity  involved  in  an  AD 
8-2  State  that  results  in  a  CONFIDENCE  level  of  MIXED  by  e 
x  a  rn  i  n  i  n  g  t  h  e  o  u  t  c  o  rn  e  o  f  B  o  a  r  d  V  o  t  i  n  g ,  When  neither  HIGH  ri  o  r 
LOW  have  a  majority  vote,  then  TRENDBoard  is  consulted': 
HIVALNUMBER  of  3  or  4  results  in  HIGH  while  a  1  Or  2  res 
ults  in  LOW.) 


turn  /  r. _ r. in....  .m-*.  ..  ^ 

mew  i  Rurind  DUdfuvut  irm; 
MARK*0  j 


IF  HIGH VOTE  >=  3 

THEN  (PRINTOUT  T  "CONFIDENCE  resolved  to  HIGH."  T) 
( R  u n  R  S  ‘HIGH  C  o  n fide n c  e ) 

(STOP)  j 


IF  LOW VOTE  >=  3 

THEN  ( P R I N T  0 U  T  T  "  C  0  N  FIDE  N C  Ere  s o 1 v e d  t  o  L  0  W . "  T ) 
( F:  u  n  R  S  '  L  0  W  C  o  n  f  i  d  e  n  c  e ) 

(STOP) : 


(*  When  there  is  no  simple  majority  vote,  consult  the 
H I V  A  L  N  U  M  B  E  R  o  n  t  h  e  T  R  E  N  D  B  o  a  r  d  t  o  d  e  c  i  d  e ,  o  t  h  e  r  w  i  s  e  it  rn  a  y  g 
et  routed  from  MIXED  to  HIGH  and  back  to  LOW,) 


IF  TRENDBoard: HIVALNUMBER  >=  3 

THEN  (PRINTOUT  T  "CONFIDENCE  resolved  to  HIGH."  T) 
( R u  n  R  S  'HIGH  C o n  fide n  c e ) 

(STOP) 


IF  TRENDBoard; HIVALNUMBER  <=  2 
THEN  (PRINTOUT  T  "CONFIDENCE  resolved  to  LOW. 
( F:  u  n  F:  S  '  L  0  W  C  o  n  f  i  d  e  n  c  e ) 

(STOP) ; 

*&( F:u  1  eSetSource  "  S I  IJ@  .  1 1  [  :  .  JeS  .  14 " ) 


T) 


NIL 


NIL 

3* (REDO  1) 


(MODIFY 

[LAMBDA  NIL  (+  edited;  "l8-Sep-85  15:1 4") 

(PROG  (READ  SENSOR  LTRSENSOR) 

if  SENTINEL  was  just  initialized,  cannot  use  MODIFY  since  no  ME 
SSAGSE  is  in  the  system;  otherwise  EVENT  gets  set  to  EVENTO  and  NIL  are  used  a 
s  tags  for  property’  lists) 


[COND 

((NULL  MESSAGE) 

(RETURN  (printout  T  T 

"Since  SENTINEL  was  just  initialized,  No  MESSAGE  is  in  th.e 
system  and  no  modifications  can  be  done" 

T] 

<+  EV COUNTER  set  back  by  one 
so  that  MODIFICATION  will  write  over  EVENT  property  list  rather  than  creating  a  n 
ew  event,) 

(3ET0  LTRSENSOR  (CAAAR  (CDAOAR  MESSAGE))) 

[COND 

( (EQP  (GLC  LTRSENSOR) 

2  ) 

(RET U R  N  ( M  0  D I F  Y 2  M  E  S S  AGE] 

(+  Pulls  off  the  type  of  sensor.  Si 
,  N1  or  N2,  S S,  Second  pass  messages  diverted  to  MOOIFy'2) 

[COND 

((EQP  (CAR  (CADAR  MESSAGE)) 

(QUOTE  BSS ) ) 

( RET  I LI  R  N  ( M  0  D I F  Y  3  M  E  S  S  AGE] 

ESS  message  to  be  modified  i 

s  sent  to  MODIFY3) 

[COND 

((EQP  (CAR  (CADAR  MESSAGE)) 

(QUOTE  I  NT)) 

(RETURN  (printout  T 

"Last  message  received  was  an  I  NT  message  which  cannot  be  m 
odif ied . " 

T] 

[  COND 

(  (  E  0  P  (  C  A  R  (  C  A  D  A  R  M  E  S  S  A  G  E  )  ) 

(QUOTE  SYS)) 

(RETURN  (printout  T 

"Last  message  w  a  s  a  n  S  V S  r e  p o r  t  w  h  i  c h  c  a  n n  o t  b  e  m  o d i f i e  d . " 

T] 

(SET  0  E  V  C  0  !J  N  TER  ( S  U  B 1  E  V  C  0  U  N  T  E  R ) ) 

(printout  T  "MESSAGE  labeled  as  "  EVENTCOUNT 
"  c  a  n  n  o  w  b  e  m  o  d  i  f  i  e  d  . " 

T  T 

"Type  NIL  in  response  to  a  question  when  you  wish  to  exit  t 
his  program" 


IUL 


V 


•_i  «„e «»•  ^  v  ■  ut  i  Yi* i  > ■_•  i  i  y  v >.« 


•«Y  I  • ->  I  I 


>_■  IV 


I  y|JV  I  *  X  L-  III  I  f.1  L'  I  I O  V-  _  _  _  - _  -  -  . .  J,  -  -  - 

his  program" 

T  T 

"Current  value  for  SENSOR  SITE  CONFIDENCE  is:  " 
i rinnp  mprsacfI 

T  T 

"The  SITE  CONFIDENCE  can  vary  from  0  (LOW)  to  9  (HIGH)" 

T 

" t v p e  in  t h e  n e w  v a  1 u e  a n d  h i t  a  c a r r i a g e  ret u r n ,  " 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

(COND 

((NULL  READ) 

(RETURN))) 

( RPLACA  (CD OR  MESSAGE) 

READ) 

(*  Having  permitted  the  modification  of  the  SITE  CONFIDENCE,  now 
the  Ifi  reading  can  be  reset.  Warning;  use  of  RPLACA.  as  follows  modifies  the  origi 
rial  MESSAGE  as  well  as  the  variable,) 


(printout  T  T 

" C u r r e n t  V a  1 u e  of  I n f r a R e d  R e a d i n u  of  S e n s o r  i s :  " 
(CADAR  (CDADAR  MESSAGE)) 

T 

"  V a  1  u e  o f  t h i s  p a r a rn e t e r  c a n  v a r y  f r o m  8  t o  9  .  T y p e  in  t h e 
new  value." 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

( RET U R N  ( META S C HEDULE R  M E S S A G E ] 

(RPLACA  (COAR  (CDADAR  MESSAGE)) 

READ)  (♦  The  following  permits  the  modi 

ficaton  of  the  sensor  capability'') 

[COND 

( ( EO  LTRSENSOR  (QUOTE  31)) 

(SETQ  SENSOR  (QUOTE  AOSSOUTH] 

[COND 

((EO  LTRSENSOR  (QUOTE  Nl)) 

(SETQ  SENSOR  (QUOTE  ADSNORTH] 

( printout  T  T  "  C u r r  e n t  C a p  a  b  i  1  i  t y  f  o r  s  e n s o  r  :  " 
SENSOR  T  "is  reported  as:  " 

(  6  E  T  P  R  0  P  S  E  N  S  0  R  (  0 IJ  0  T  E  C  A  P  A  B I L I  T  V  )  ) 

T  T 

"SENSOR  CAPABILITY  can  be  FULL,  PARTIAL  or  ZERO.  Type  in  on 
e  of  these  t h r e e  v a  1 u e s  f o 1 1 o w e d  b y  a  c a r r i  a  q  e  re t u r n . " 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 


((NULL  READ) 

(RETURN  (METASCHEDULER  MESSAGE] 

(PUTPROP  SENSOR  (QUOTE  CAPABILITY) 

READ)  (+  INTEL  condition  from  the  Intel 

Board  can  now  to  changed) 

(printout  T  T  “Current  INTEL  Condition  is:  " 
(Get-Value  IntelBoard  (QUOTE 

INTELCONDITION) ) 

T  T 

“INTEL  Conditions  fall  into  these  categories:" 

T  "RED:  indicate  imminent  attack"  T 
"  V  E  L  L  0  W :  indie a t  e  p o  s  s i b 1 e  a 1 1 a c  k “ 

T 

"GREEN:  no  attack  indications  are  present" 

T 

"TEST:  indications  of  a  test  launch  received." 

T  T 

" T v p e  i n  t h e  n e w  v a  1 u e  foil o w e d  b v  a  c a r r i a q e  r e t u r n . " 

T ) 

(SETQ  READ  (RAT OM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (METASCHEDULER  MESSAGE] 

( F'  u  t  V  a  1  u  e  I  n  t  e  1 B  o  a  r  d  ( Q  U  0  T  E  INTEL  C  0  N  D I T 1 0  N ) 

READ)  (*  INTEL  source  can  be  changed 

as  weir,  only  possibilities  OPEN  and  INTEL) 

(printout  T  T  "INTEL  source  is  reported  to  be:  " 

( G  e  t  V  a  1  u  e  Intel  B  o  a  r  d  (  0  ij  0  T  E  S  0  U  R  C  E ) ) 

T  T 

"INTEL  s o u r c e s  c a n  b e  0 F' E N  ( m e a n i n g  p u b  1  id y  k n o w n  o r  a n n o u 
need)  or  INTEL  (obtained  from  a  classified  source). 

T 

"  T v p e  i  n  t h e  n e w  v a  1  u e  f o  1 1  o w e d  b y  a  c a r r  i  a q e  re t u r n " 

T ) 

(SETQ  READ  (RATOM  NIL  NIL)) 


((NULL  READ) 

(RETURN  (METASCHEDULER  MESSAGE] 

( P  u  t  V  a  1  u  e  I  n  t  e  1 B  o  a  r  d  ( Q  IJ  0  T  E  S  0  iJ  R  C  E ) 

READ)  (+  Latitude  of  the  launchsite  in  th 

e  MESSAGE  modified;  BUT  NOT  the  LAT  tag  on  the  property  list  of  the  identified  l 
aunchsite.) 

(printout  T  T 

"Rep o r t e d  L a t  i  t u d e  o f  the  La u n c h s i t e  i s :  " 
LNCHLAT  "  degrees  W"  T  T 

"The  SIMCOF'E  scenario  deals  with  latitudes  ranging  from  10 
to  40  degrees.  Type  in  the  new  value.  " 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 


i i NULL  READ) 

(RETURN  (METASCHEDULER  MESSAGE] 

(RPLACA  (ODOR  (CADAR  MESSAGE)) 

READ)  (+  Longitude  of  I  aim  onsite  descri 

bed  in  the  message  can  be  changed.) 

(printout  T  T 

"Re  p o r t  e  d  1 o n q i t u  d e  o  f  t  h e  L  a  u  n  c h  s i t  e  is:  " 
LNCHLGN6  "degrees  S"  T  T 

"The  SIMCOPE  scenario  deals  with  longitudes  ranging  from  15 
to  45  degrees." 

T 

"  T  v  p  e  i  n  t  h  e  n  e  w  v  a  1  u  e  a  1  o  n  q  w  i  t  h  a  c  a  r  r  i  a  q  e  r  e  t  u  r  n . " 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (METASCHEDULER  MESSAGE] 

(RPLACA  (CDDAR  MESSAGE) 

READ)  (+  Pi  TIME:  that  is  the  time  when 

the  ADS-a  reports  is  expected  to  arrive  can  be  modified  as  well,) 

(printout  T  T 

" The  e x p e c t e d  T 1 M E  o f  a r r i v a  1  f o r  t h e  AD S 2  Rep o r t  o f  t h i s  1 
aunch  event  is:  " 

(CAADR  MESSAGE) 

T  T 

"The  ADS 2  TIME  is  a  six  digit  number  such  as  123456“ 

T 

"12  is  the  number  of  hours  on  a  24  hour  clock  " 

T  "34  is  the  number  of  minutes  "  T 
"and  56  is  the  number  of  seconds.” 

T  T 

"Type  in  the  new  value  along  with  a  carriage  return." 

T ) 

(SETQ  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (METASCHEDULER  MESSAGE] 

(RPLACA  (iJADR  MESSAGE) 

READ) 

(printout  T  T 

"SENTINEL  DECISION  AID  invoked  with  new  value." 

T) 

(METASCHEDULER  MESSAGE] ) 

(MODIFY) 

294- 

NIL 

294- 

NIL 

294-  (REDO  100) 


A0-A163  827  AN  EXPERT  SVSTEA  DECISION  AID  FOR  A  COMMAND  CONTROL  AMD 
COMMUNICATIONS  OPERATORS)  AIR  FORCE  INST  OF  TECH 
HRIGHT-PATTERSON  AFB  OH  SCHOOL  OF  ENGI. .  D  L  TODAT 
UNCLASSIFIED  DEC  83  AF I T/GE/ENG/85D-38  F/O  17/2 


MICROCOPY  RESOLUTION  TEST  CHART 

NAT'ONA|  pilRFAU  Of  STANDARDS  1%1-A 


(+■  edited:  "IS-Sep-SS  17;40") 


(MODIFY  2 

[LAMBDA  (MESSAGE) 

(PROG  (SENSOR  READ) 

(+  This  function  does  for  ADS  2  Reports  what  MO  DIP/  does  for  AD  Si 
Reports;  mainiy  to  permit  the  user  to  modify  various  parameters  of  the  MESSAGE 
which  is' then  sent  back  to  METASCHEDULER,  MODIF/2  is  quite  similar  to  MO  DIF 
/  and  its  code  due  to  the  large  number  of  PRINTOUT  statments  is  fairly  self  docu 
meriting) 


[COHO 

((NULL  EVENTMAT OH) 

(  RET  U  R  N  ( prill  tout  T 

"There  is  NO  EVENTMAT OH :  " 

T 

"SEQUENCE  of  messages  is  out  of  order  OR,  " 

T 

"IF  y o  u  still  w i s  h  t  o  u  s  e  M  0  D I F  V , " 

T 

"SETQ  EVENTMATCH  to  an  existing  EVENT" 

T] 

(PUTPROP  EVENTMATCH  (QUOTE  P1TIME) 

PRESENTIME) 

(printout  T  T  "ADS 2  REPORT  labeled  as  " 

EVENTMATCH  "  can  now  be  modified.”  T  T 
"  T  hi  e  I R  r  e  a  d  i  n  g  f  o  r  t  h  i  s  p  a  s  s  is:  " 

( C  A  D  A  R  (  C  D  A  0  A  R  M  E  S  S  A  G  E ) ) 

T 

"  I R  Re  a  d i n g  s  fall  in  t  o  t h  e  s  e  c  a  t  e  g  o r i e  s :  " 

T  T  "1  is  Type  I"  T  "2  is 'Type  2"  T 
"U  is  Unknown" 

T  "I  is  Indistinct"  T  T 

"Type  in  the  new  value  for  the  IR  reading  or  type  NIL  to  ex 

i  t  t  h  i  s  p  r  o  g  r  a  in  f  o  1 1  o  w  e  d  b  y  a  c  a  r  r  i  a  g  e  ret  u  r  n  .  " 

T) 

(SETO  READ  (RATOM  NIL  NIL)) 

(CO  NO 

((NULL  READ) 

(RETURN))) 

( RPLACA  (CDAR  ( CDADAR  MESSAGE)) 

READ) 

( R  E  M  P  R  0  P  E  V  E  N  THAT  C  H  ( Q  LI  0  T  E  P  2  T  V  P  E ) ) 

(printout  T  T 

"The  c u r r e n t  r e p o r t. e d  h e a d i n g  f o r  t h is  la u n c h  e v e n t  is:  " 

(CADDR  (CADAR  MESSAGE)) 

T  T 

v  a  1  u  e  s  a  r  e  d  i  r  e  c  1 1 y  r elate d  t o  c  o  m  p  a  s  s  v  a  1 u e  s . " 

T  "360  degrees  is  EAST"  T 
"90  degrees  is  NORTH" 


HEADING 


i  "Ida  degrees  is  wtai"  i 
"270  degrees  is  SOUTH." 

T  T 

"Type  in  the  new  value  in  degrees  followed  by  a  carriage  re 
turn . " 

T 

"Type  NIL  in  response  to  this  or  to  one  of  the  next  questio 
ns  to  have  SENTINEL  evaluate  the  modified  rnessaqe .  " 

T) 

(SETQ  READ  (RAT 0 M  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"SENTINEL  DECISION  AID  invoked  with  modified  values." 

T  T  T) 

( HETA8CHE0ULER  M E S S A 6 E  ] 

(RPLACA  ( CD DR  (CADAR  MESSAGE)) 

READ) 

(printout  T  T 

"The  reported  BSS  sites  that  should  detect  this  launch  even 
t  are:  " 

(CADDAR  MESSAGE) 

T  T 

"  & S S  s  i  t e s  a r e  n u rnbered  1  t h r o u g h  7. " 

T 

"More  than  one  number  for  this  parameter  indicates  that  mor 
e  than  one  BSS  site  will  be  able  to  detect  this  launch." 

T  T 

"Type  in  the  new  value  for  the  BSS  sites  or  type  NIL  to  hav 
e  SENTINEL  evaluate  the  modified  message," 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"SENTINEL  DECISION  AID  invoked  with  modified  values." 

T  T  T) 

(METASCHEDULER  MESSAGE] 

(RPLACA  (CDDAR  MESSAGE) 

READ) 

(printout  T  T 

"The  current  value  for  the  SENSOR  SITE  CONFIDENCE  is:  " 

( CAD DR  MESSAGE) 

T 

"The  SITE  CONFIDENCE  can  vary  from  8  (LOW)  to  9  (HIGH)" 

T 

" t y p e  in  t h e  n e w  v a  1 u e  folio w e d  b y  a  c a r r i a q e  re t u r n . " 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 


(stig  rctrtu  nil  r-4 i i_ ^  ^ 

[eoNo 

((NULL  READ) 

(RETURN  (printout  T  T 

SENTINEL  D E C I S 1 0 N  AID  i n v o R e d  w i t h  m o d i f i e d  v a  lues . " 

T  T  T) 

( METASCHEDULER  MESSAGE ] 

(RPLACA  ( CD DR  MESSAGE) 

READ) 

[CO  NO 

(CEO  LTRSEH30R  (QUOTE  S2)) 

(SETQ  SENSOR  (QUOTE  ADSSOUTH] 


( ( E 0  L T R S E N S 0 R  (  0 l.l Q IE  N 2 ) ) 

(SETQ  SENSOR  (QUOTE  ADSNORTH] 

(printout  T  T  "Current  Capability  of  sensor:  " 
SENSOR  T  "is  reported  as:  " 

( G  E  T  P  R  0  P  S  E  N  S  0  R  ( 0  U  0  T  E  C  A  P  A  B I L I T  Y ) ) 

T  T 

ENSOR  CAPABILITY  can  be  FULL,  PARTIAL  or  ZERO.  Type  in  on 
of  these  three  values  followed  by  a  carriage  return." 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

S  ENT  I N  EL  DECI S 1 0  N  AID  i  n  v  o  k  e  d  w  i  t  h  rn  o  d  i  f  i  e  d  v  a  1  u  e  s  .  " 

T  T  T) 

(METASCHEDULER  MESSAGE] 

( PUT PROP  SENSOR  (QUOTE  CAPABILITY) 

READ) 

( printout  T  T  "  C u r  r e n  t  INTEL  C  0  N D I T 1 0 N  is:  " 

(  G  e  t  V  a  1  u  e  I  n  t  e  1 B  o  a  r  d  ( 0  U  0  T  E 

INTELCONDITION) ) 

T  T 

"INTEL  Conditions  fall  into  these  categories:  " 

T  "RED:  indicate  imminent,  attack."  T 
"  Y  E  L  L  0  W ;  i  ri  d  i  c  a  t  e  p  o  s  s  i  b  1  e  a  1 1  a  c  k  .  " 

T 

I 

" G R E E N :  n o  a 1 1 a c k  i n d i c a t i o n s  a r e  p r esent . " 

T 

"TEST:  in d i c a t i o n s  o f  a  t e s t  1  a u n c h  r ecei v e d  . " 

T  T 

V p e  i n  the  ne w  condi ti o n  f o  1 1 o w e d  b y  a  c a r r i a g e  r e t u r n . " 

T ) 

(SETQ  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

S ENTI N EL  DECI S 1 0 N  AID  i n v o k e d  w i t h  m o d if ie d  v a  1 u e s . " 


I  I  u 

(METASCHEDULER  MESSAGE] 

(Put Value  Intel  Board  (QUOTE  INTELCONDITION) 

READ) 

(printout  T  T  "INTEL  Source  is  reported  to  be:  " 
(Get Value  Intel  Board  (QUOTE  SOURCE)) 

T 

"INTEL  Sources  can  be  OPEN  (meaning  publicly  known  or  arinou 
need)  or  INTEL  (obtained  from  a  classified  source)." 

T  "Type  in  the  new  value."  T) 

( SETQ  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"SENTINEL  DECISION  AID  invoked  with  modified  values." 

T  T  T) 

( METASCHEDULER  MESSAGE ] 

(Put Value  Intel  Board  (QUOTE  SOURCE) 

READ) 

(printout  T  T 

"TIME  at  which  the  BSS  report  for  this  event  is  expected  is 


(CAADR  MESSAGE) 

T  T 

"TIME  is  a  6  digit  number,  where  the  first  two  digits  are  t 
he  hours." 

T  "The  next  two  are  minutes."  T 
"And  the  last  two  are  seconds." 

T  T 

" T y p e  in  t h a  n e w  v a  1 u e  f o r  this  TIME:  " 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

" S  E N  T I N  E  L  0  E  C I S 1 0  N  AID  i n v o  k e  d  w  i  t  h  m o  d i f i e d  v  a  1 u  a  s  ,  " 

T  T  T) 

(METASCHEDULER  MESSAGE ] 
i,  RPLAUA  i,  L’ADR  MESSAGE  ) 

READ) 

(printout  T  T 

" S E N T I N E L  D E C 1 3 1 0 N  AID  in v o k a d  w i t h  m o d i f i a d  v a  1 u a s  . " 

T) 

( METASCHEDULER  MESSAGE ] ) 

( M  0  D I F  V  Z  ) 

51* 

NIL 

51* 

NIL 

51* ( RE  D  0  1 0 0 ) 


s'C'.'lv 


(MODIFY  3 

[LAMBDA  (MESSAGE)  (*  edited;  "20-sep-85  I4;3e") 

(PROG  (SENSOR  READ) 

(*  MODIFY3  permits  tne  modification  of  BSS  messages  as  MODIFY  a 
nd  MOOIFY2  permit  for  ADS-1  and  AD 3-2  messages.  The  user  can  modify  various 
parameters  of  the  633  messaged  and  observe  the  result  when  r'M  ETA  SCHEDULER 
MESSAGE)  is  invoked  again,  Due  to  its  similarity  to  modify 2  and  the  large  numbe 
r  of  PRINTOUT  statements,  the  MODIFY 3  code  is  fairly  self  documenting.) 

(■+■■  what  modify 2  had  to  restore 

a  perfect  match,  we  must  do  similar  for  633) 

[COND 

((HULL  EVENTMATCH) 

(RETURN  (printout  T 

" There  i s  N  0  E  V E N T  M  A  T  C H : " 

T 

"SEQUENCE  of  messages  is  out  of  order  or" 

*T 

"IF  v o u  still  w i s h  t o  u s e  M 0 D I F Y , " 

T 

" S E  T  0  E  V E  N  T  M  A  T C H  1 0  a  n  e  x i s t i n  g  E  V ENT,  " 

T] 

(printout  T  T  "BSS  REPORT  labeled  as  " 

E  V  E  N  T  M  A  T  C  H  "  c  a  n  n  o  w  b  e  m  o  d  i  f  i  e  d  . "  T  T 
" B S S  s i t e  w h i c h  d e t e c t e d  t h is  e v e n t  w a s ;  " 

( C  A  A  A  D  R  ( C  A  D  A R  M  E  S S  AGE ) ) 

T 

"BSS  sites  are  numbered  1  through  7,  " 

T  T 

"If  v  o u  w i s h  t  o  c h a n  q e  t  h  e  d  e t e  c t i n q  B  S  S  s i t  e ,  " 

T 

"Type  in  the  new  value  for  the  Detecting  BSS  site  number,  o 
r  t  y  p e  NIL  t o  e  x i t  t h  e  M 0 D I F  Y  p  r  o g  r  a  m , " 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

(COND 

((HULL  READ) 

(RETURN)))  (*  P2TIME  property  restored  to  E 

VENT  MATCH  so  that  it  will  be  matched  properly  when  METASCHEDULER  invoked 
again,) 

(PUTPROP  EVENTMATCH  (QUOTE  P2TIME) 

(  C  A  0  A  A  R  (  C  D  A  0  A  R  M  E  S  S  A  G  E  )  )  ) 

( RPLACA  (CAADR  (CADAR  MESSAGE)) 

READ) 

(printout  T  T 

"The  c  u r r  e  n  t  r e  p  o r t  e  d  h e  a d i n  g  f  o r  t  h  i  s  1  a  u  n c h  e  v  e  n t  is;  " 

(CADDF:  (CADAR  MESSAGE)) 

T  T 

values  are  directly  related  to  compass  values." 

T  "360  degrees  is  EAST"  T 


HEADING 


■  y«  ciemr-ees  is  Nursirr 
T  "180 'degrees  is  WEST"  T 
"270  degrees  is  SOUTH." 

T  T 

"Type  in  the  new  value  in  degrees  followed  by  a  carriage  re 
turn . " 

T 

"Type  NIL  in  response  to  this  or  to  one  of  the  next  questio 
ns  to  have  SENTINEL  evaluate  the  modified  message." 

T) 

( SET Q  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"  S  E  N  T I N  E  L  DEC  I S 1 0  N  AID  i  n  v  o  k  e  d  w  i  t  h  rn  o  d  i  f  i  e  d  v  a  1  u  e  s  ,  " 

T  T  T) 

(METASCHEDULER  MESSAGE ] 

( R  P  L  A  C  A  ( C  D  0  R  ( C  A  D  A  R  M  E  S  S  A  G  E )  j 
READ) 

(printout  T  T 

"The  earl ies t  e x pecte d  i rn p a c t  t ime  f o r  a n y  o f  t h e  o b ject s  d 
e t e c t e d  in  t h i s  e v ent  is :  " 

( CAADR  MESSAGE ) 

T  T 

" S I M C 0 PE  TIME  i s  e x p r e s s e d  i n  6  d i g i t s :  " 

T 


"2  digit  s  e  a  c  h  f  o  r  h  o  u  r  s ,  rn  i  n  u  t  e  s  a  n  d  s  a  c  o  n  d  s  .  " 

T  T 

"Type  in  the  new  TIME  for  expected  impact  or  type  NIL  to  ha 
v e" SE N TINEL  e v a  1 u a t e  t h e  M E S S AGE. " 

T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

£  COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"SE  N  TINEL  0  E  C 1 3 1 0  N  AID  i  n  v  o  k  e  d  w  i  t  h  rn  o  difie  d  v  a  1  u  e  s  . " 

T  T  T) 

( METASCHEDULER  MESSAGE ] 

( RPLACA  (CADR  MESSAGE) 

READ) 

(printout  T  T  ' 

"The  current  value  for  the  BSS  SITE  CONFIDENCE  is:  " 

(CADDR  MESSAGE) 

T 

"The  SITE  CONFIDENCE  can  vary  from  O  (LOW)  to  9  (HIGH)" 

T 

" t  y p  e  i n  t  h  e  n e w  v  a  1 u  e  toll o w  e  d  b  y  a  c a  r r i a  g e  r  e  t u  r  n . " 

T) 

Ka"  (SETQ  READ  (RATOM  NIL  NIL)) 


I.  ^  NULL  KtHU  ,1 

( RETURN  (printout  T  T 

"SENTINEL  DECISION  AID  invoked  with  modified  values." 

T  T  T) 

( METASCHEDULER  MESSAGE ] 

(RPLACA  (CD DR  MESSAGE) 

READ) 

[SET Cf  SENSOR  (MKATOM  (CON CAT 

(QUOTE  TGTQ) 

(CAAADR  (CADAR  MESSAGE] 

( printout  T  T  "  C  u  r  r  e  n  t  C  a p  a  Dili  t  y  o  f  s  e  n  s  o  r  :  " 
(CONVERT  SENSOR) 

T  "is  reported  as:  " 

(GETPROP  SENSOR  (QUOTE  CAPABILITY)) 

T  T 

"SENSOR  CAPABILITY  can  be  FULL,  PARTIAL  or  ZERO,  Type  in  on 
e  of  these  three  values  followed  by  a  carriage  return." 

T) 

(SETO  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"  S  E  N  T I N  E  L  D  E  C I S 1 0  N  AID  i  n  v  o  k  e  d  w  i  t  h  rn  o  d  i  f  i  e  d  v  a  1  u  e  s  . " 

T  T  T) 

( METASCHEDULER  MESSAGE ] 

( P  U T  P R 0 P  S E  N  S 0 R  ( 0  U  GTE  C  A  P  A  B I L I T  V ) 

READ) 

(printout  T  T 

"The  t r a .j e c t o r y  s t a bi  1  i t y  a n d  n u rn b e r  o f  0 b j e c t s  d e t e c t e d  c a 
n  now  be  modified." 

T  T 

" C u r r e n t  T r a j e c t o r y  s t a bi 1 i t y  is:  " 
(CADDAR  MESSAGE) 

T 

"where  Y  indicates  a  stable  ballistic  trajectory,  and" 

T 

"  N  i  n  d  i  c  a  t  e  s  N  0 ,  t  h  e  rn  i  s  s  i  1  e  i  s  rn  a  n  u  v  e  r  i  n  q  . " 

T  T 

"Type  i n  t  h e  n  e  w  v a  1 u e  f  o r  t  r  a  j  e  c  t o r  y  stabilit y  o r  N I L  t  o  r 
e  t  u  r  n  t  o  B  S  S  p  r  o  c  e  s  s  i  n  q  . " 

T ) ' 

(SETO  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"  S  ENT  I N  EL  DEC  I  SI  0  N  AID  i  n  v  o  k  e  d  w  i  t  h  rn  o  d  if  ie  d  v  a  1  u  e  s  .  " 

T  T  T) 

( METASCHEDULER  MESSAGE  ] 

( R  P  L  A  C  A  ( C  D  D  A  R  M  E  3  S  A  G  E ) 


^ rn 1. 1  ttauntuuLtK  mtsstttst:  j 
(RPLACA  fCDDAR  MESSAGE) 

READ) 

(printout  T  T 

"The  number  of  obiects  detected  can  vary  from  @  to  5 

T 

"The  current  number  of  objects  detected  is: 
(CAD ADR  ( CADAR ' MESSAGE ) ) 

T  T 

"Type  in  the  new  value  for  number  of  objects  or  NIL 

T) 

(SETQ  READ  ( RAT  DM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

“SENTINEL  DECISION  AID  invoked  with  modified  values 

T  T  T) 

( METASCHEDULER  MESSAGE  ] 

(RPLACA  (CD ADR  (CADAR  MESSAGE)) 

READ) 

(printout  T  T 

"TIME  at  w h i c h  t h i s  B S S  m e s s a g e  w a s  r e p o r t e d  i s : 

( CADAAR  (CDADAF:  MESSAGE)) 

T  T 

"TIME  is  a  6  digit  number,  where  the  first  two  digit 
he  hours," 

T  "The  next  two  are  minutes."  T 
"And  the  last  two  are  seconds," 

T  T 

"  T  y p e  i n  t h  e  n e  w  v a  1 u e  f  o r  this  T I M E ; 

T ) 

(SETO  READ  (RATOM  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"  S  E  N  T I N  E  L  D  E  C I S 1 0  N  Alb  i  n  v  o  k  e  d  w  i  t  h  rn  o  d  i  f  i  e  d  v  a  lues 

T  T  T) 

( METASCHEDULER  MESSAGE ] 

(RPLACA  (CD  M  A  R  ( CDADAR  ME  S  o  A  GE )  ) 

READ  ) 

(printout  T  T 

"SENTINEL  DECISION  AID  invoked  with  modified  values 

T) 

(  META  S  C  H  E  D IJ  L  E  R  M  E  S  S  AGE]  ) 

(MODIFY 3) 


64+ 

NIL 

64* 

NIL 

64* (REDO  100) 


I,  ML  )  AobntUULtK  mtSSAbLJ 

(RPLACA  (CD0AR  MESSAGE) 

READ) 

(printout  T  T 

“The  number  of  objects  detected  can  vary  from  O  to  5 

T 

"The  c u r  r e n t  n u m b e r  o f  o b iects  detected  is: 
(CAD ADR  ( CADAR ‘ MESSAGE )  ) 

T  T 

"Type  in  the  new  value  for  number  of  objects  or  NIL 

T) 

(SETS  READ  ( RATO M  NIL  NIL)) 

[COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"SENTINEL  DECISION  AID  invoked  with  modified  values 

T  T  T) 

( METASCHEDULER  MESSAGE ] 

( RPLACA  ( C  D A  D R  ( C A  D  A  R  M  E  S S  A  G E ) ) 

READ) 

(printout  T  T 

"TIME  at  which  this  68 S  message  was  reported  is; 

i,  C  A  El  A  A  R  i,  U  D  A  El  A  R  ME  U  o'  A  G  E  ,i  } 

T  T 

"TIME  is  a  6  digit  number,  where  the  first  two  digit 
he  hours," 

T  "The  next  two  are  minutes."  T 
"And  the  last  two  are  seconds," 

T  T 

' ' T y p e  in  t h e  n e w  v a  1 u e  f  o r  this  T I M E  ; 
T) 

(SETO  READ  (RATOM  NIL  NIL)) 

T  COND 

((NULL  READ) 

(RETURN  (printout  T  T 

"  S  E N T I N  E  L  D  E C I S 1 0 H  AID  i n v o  k e  d  w  i  t  h  m o d i f i e d  v a  1  u  e  s 

T  T  T) 

( METASCHEDULER  MESSAGE  ] 
i,  R  P  L  A IJ  A  i,  C  El  A  A  R  i,  U  D  A  El  A  R  M  E  S  S  A  G  E  ,i  ) 

READ) 

(printout  T  T 

" S E N TINE L.  D E C I S 1 0 N  AID  i n v o k e d  w i t h  m o d if ie d  v a  1  u e s 

T  ) 

( METASCHEDULER  MESSAGE ] ) 

(MOD  IF VS) 


64- 
NIL 
64- 
N I L 

64- (REDO  100) 
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RuleSet  MSGHandler 

LAit  Edited;  3-Oct-SS  17:57:15  by 

W  o  r  k  S  p  a  c  e  C 1  a  s  s :  S  e  n  s  o  r  s ; 
Compiler  Options;  ; 

Temp o  r  a r y  V a  r s  :  READ; 

Control  Structure:  DOALL; 

*  *  *  *  :f-  +  * 


( *  This  rule  set  determines  '.'.'hat  to  do  with  the  message  tha 
t  is  passed  to  it  from  the  METASCHEDULER) 

( *  The  fir  s  t  r  u  1  e  f i 1 1 e  r  s  o u t  m e  s s a g  e  s  t h  a  t  are  i n  c  o r  r  e  c  1 1 y 
addressed) 

IF  DESTINATION  ~=  ' CWC 

THEN  (PRINTOUT  T  "INCORRECT  MESSAGE  Addressed  to  "  DESTINA 
TION  "  Recieved  "  T  "THIS  IS  THE  MESSAGE:  "  T  MESSAGE  T 
"IF  y o u  w  i  s h  t h  i  s  rn e s s a g e  p r o c e s s e d  T V PE  T,  otherwise  T V P E 
NIL.'"  T)  (SETQ  READVAR* (RATOM  NIL  NIL)); 

( *  T h e  s e c o n d  r u  1  e  w ill  e x i t  o u t  o f  t h e  R u  1  e s e t ) 

IF  READVAR  =  'NIL 

THEN  (SETQ  READVAR  *  T)  (STOP); 

( *  P R E S ENT  I M E  i s  p u 11  e d  o f  f  t  he  A D S 1  a n d  A D S 2  r e p o r  t s ) 

IF  SENSORTVPE  =  'ADS 

THEN  (SETQ  PRESENTIME  ( CAD AAR  (CDADAR  MESSAGE))); 

( *  T h e  thi r d  r u 1 e  p r o c esse s  the  AD S 1  rep o r t s ,  a n d  b e g i n s  b y 
c  r  e  a  t i n  g  the  E  V ENT  C  0 U  N T  p  r o  p e  r  t  y  list ) 

IF  SENSORTVPE  =  ' ADS 

(GLC  SENSORNUMBER)  =  1 

THEN  (SETO  EVENT COUNT  (CONG AT  'EVENT  EV COUNTER ) ) 

( 3  E  T  i j  E  V  E  N  T  C  0  U  N  T  f M  K  A  T  0  M  E  V  E  N  T  C  0  U  N  T ) ) 

(SETQ  P1TIME  (CAADR  MESSAGE)) 

(PUTPROP  EVENTCOUNT  ’ PIT  I  ME  PIT  I  ME) 

(SETQ  E ''/COUNTER  (PLUS  E  VC  O' INTER  1)) 

(SCHEDULER  MESSAGE); 

IF  SENSORTVPE  =  'ADS 

(GLC  SENSORNUMBER)  =  £ 

THEN  i,  hDxlHmNDLEK  M  c.  C  i.  A  G  t 
(TIMECHECK); 


^ciuntuuLtK  mtasttiit ; ; 


V# 


IF  SENSORTYPE  =  ‘ADS 

(GLC  SENSORNUMBER)  =  2 
THEN  ( ADS2HANOLER  MESSAGE) 
(TIMECHECK); 


IF  SENSORTYPE  =  ‘SYS 
THEN  (SYSHANDLER  MESSAGE); 


IF  SENSORTYPE  =  ‘ I  NT 

THEN  ( I NTELH ANGLER  MESSAGE); 


IF  SENSORTYPE  =  'BSS 
THEN  (SETO  PRESENTIME  (CAOAAR  (CD AD A 
( BSSHANDLER  MESSAGE ) ; 

#,*■:(  Ru  1  eSetSource  " LQUG  .  z  I  [  :  .  YA  :  .  49 " ) 


NIL 

83* 

NIL 

y  3 

NIL 

83* 

NIL 


83* 

NIL 

!j  “J  4- 

NIL 


NIL 

83* 

NIL 


NIL 


U  J  *■ 

NIL 


NIL 

8  ‘.j  4- 

NIL 


NIL 
y  y  4- 
NIL 


NIL 

O  O  j- 


NIL 

83* (REDO  100) 
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R  ME 


(POLAR 

[LAM B DA  ( T G T C 0 0 R D  L N C H C 0 0 R D )  (*  edited:  " £3- o ct- 35  1 4; 49") 

(*  Given  launch  site  and  target  coordinates  in  terms  of  latitude  and  lo 
ngitude,  POLAR  gives  the  HEADING  (30  degrees  =  North)  and  RANGE  (111  Km  per 
degree,  equatorial  approximation)  from  the  launchsite  to  the  target,  INPUTS  "(targ 
et  coordinates)  (launch  coordinates)"  *  OUTPUTS 

"(HEADING  in  degrees)  (RANGE  in  Km)  Decimal  fractions  are  trim ca 
ted  o v  the  FIX  command,") 


NIL 


(PROG  (ALPHA  TOP  BOTTOM  HYPO) 

(*  Separates  out  the  latitude  and 

longitude ) 

( S E  T  0  T  G  T  L  A  T  ( C ART  G  T  0 0 0  R  D ) ) 

( S E  T  0  T  G  T  L  0  N 6  ( C  ADR  T  G T  0  0  0  R  D ) ) 

(SETO  LNCHLAT  (CAR  LNCHCOORD ) ) 

( S ETQ  L  N 0 H  L  0 N G  ( C ADR  L  N C H C 0 0  R  D ) ) 

(*  Sets  up  the  right  hand  triangle. 

Vv’e  are  looking  for  alpha  which  is  the  arctan  of  TOP  over  BOTTOM) 

(SETO  TOP  (DIFFERENCE  TGTLAT  LNCHLAT)) 

(SETQ  BOTTOM  (DIFFERENCE  TGTLONG  LNCHLONG ) ) 

(*  SPECIAL  CASE;  POLAR  headi 

ngs  of  £70  (South)  and  30  (North)  handled  separately  since  BOTTOM  =  Zero  (longit 
ude  is  the  same))’ 

( COND 

( ( ZEROP  BOTTOM) 

[PROG  NIL 

[COND 

(CGREATERP  TGTLAT  LNCHLAT) 

(SETQ  HEADING  (QUOTE  270))) 

(T  (SETO  HEADING  (QUOTE  90] 

(SETO  RANGE  (TIMES  (ABS  TOP) 

(QUOTE  111] 

(SETQ  RANGE  (FIX  RANGE)) 

(+  THIS  TRUNCATES  THE  DECIM 

AL  PART  OF  THE  RANGE  INFO) 

(printout  T  "HEADING  IS  "  HEADING 
"  DEGREES" 

T  "RANGE  IS  "  RANGE  "  KILOMETERS" 
T) 

(RETURN)  ))  (*  SPECIAL  CASE;  headings  of  i 

SO  l'VvEST  .'j  and  360  ('EAST  )  TOP*  ~  ze ro  i 

(COND 

((ZEROP  TOP) 

[PROG  NIL 

[COND 

((GREATERP  TGTLONG  LNCHLONG) 

(SETO  HEADING  (QUOTE  ISO))) 

(T  (SETO  HEADING  (QUOTE  360 ] 


^  vl  i  v  nununiu  ^  y  u  v  i  l-  x'ju  /  y  y 

(T  (SETQ  HEADING  (QUOTE  360] 

(SETQ  RANGE  (TIMES  (ABS  BOTTOM) 

(QUOTE  111] 

(SETO  RANGE  (FIX  RANGE)) 

(printout  T  "HEADING  IS  "  HEADING 
"  DEGREES" 

T  "RANGE  IS  "  RANGE  "  KILOMETERS" 
T) 

(RETURN))) 

i;':+:  We  now  calculate  ALPHA  and  from  there,  calculate  the  hvpoteneu 
se  of  the  triangle  Dv  using  the  cos,  111  Km  per  degree  is  what  a  degree  of  longitu 
de  is  at  the  equator,) 


[SETQ  ALPHA  (ABS  (ARCTAN  (FQUOTIENT  TOP  BOTTOM] 
[SETO  RANGE  (TIMES  (QUOTE  111) 

(ABS  (FQUOTIENT  BOTTOM 

(COS  ALPHA] 

(*  HEADING  correction  for  II  qua 


drant) 


drant) 


[COND 

( (MINUSP  TOP) 

(SETO  HEADING  (DIFFERENCE  (QUOTE  180) 

ALPHA] 

C*  heading  correction  for  IV  qua 


[COND 

( (MINUSP  BOTTOM) 

(SETQ  HEADING  (DIFFERENCE  (QUOTE  360) 

ALPHA] 

(*  heading  correction  for  ill  qua 

drant;  form  is  clumsy  due  to  not  having  the  PLUSP  command  in  interlisp) 

[COND 

((AND  (NOT  (MINUSP  TOP)) 

(NOT  (MINUSP  BOTTOM))) 

(SETQ  HEADING  (PLUS  (QUOTE  180) 

ALPHA] 

(+  No  correction  to  heading  requi 

red  for  l  quadrant) 

(COND 

((AND  (MINUSP  TOP) 

(MINUSP  BOTTOM)) 

(SETQ  HEADING  ALPHA))) 

(+  Decimal  fractions  are  truncate 
d) 

(SETO  HEADING  (FIX  HEADING)) 

(SETQ  RANGE  (FIX  RANGE)) 

(printout  T  "HEADING  IS  "  HEADING  "  DEGREES"  T 
"RANGE  IS 

RANGE  ”  KILOMETERS"  T  Tl) 


r.ey  iuris  rrru  ics; 

Using  $Regions 
RuleSet  Regions 

Last  Edited:  3-oct-es  17:53:17  t>y 
Workspace  Class:  Launchsite; 
Compiler  Options:  ; 
Temporary  Vars:  j 
C o n t- r o  1  S t r u c t u r e :  001 ; 


(*  This  rule  set  determines  what  region  in  the  countr 
HEM  the  launchsite  is  located  in.) 

IF  LNCHLAT  <=  £6 
LNCHLONG  <=  17 
THEN  (SETQ  REGION  *0UTT); 

IF  LHCHLAT  <=  £6 
LNCHLONG  >  17 
THEN  (SETQ  REGION  ' INN); 

IF  LNCHLAT  >  £6 
LNCHLONG  >=  18 
LNCHLAT  <  33 

THEN  (SETQ  REGION  ' WEST ) j 

IF  LNCHLAT  >=  33 
LNCHLONG  >  19 
THEN  (SETQ  REGION  ’WEST); 

IF  LNCHLAT  >=  33 
LNCHLONG  <=  19 
THEN  (SETQ  REGION  ' SOUTH) j 

(*  If  launchsite  does  not  fall  in  the  above  regions, 
assumed  to  be  located  in  the  CENTRAL  region) 

THEN  (SETQ  REGION  1  CENTRAL) ; 

#&(  Ru  1  eSet Source  "LZIJO  .  z  I  [ :  .  AK9 . 4 " ) 

5<r 

NIL 

5* 

NIL 

54- 

NIL 

54- 

NIL 

54- (REDO  1) 


(SCHEDULER 

[LAMBDA  (AD31REP0RT)  (*  edited;  "l3-Sep-85  13;3S") 

(PROG  (INFO  MATCHLIST  MATCHPT  MATCHLONG  READ) 

(SETO  INFO  ( CDAR  ADS1REPORT) ) 

(SETQ  LNCHLAT  (ABS  (CADDAR  INFO))) 

(SETO  LNCHLONG  (CADR  INFO)) 

(SETQ  MATCHLIST  LNCHSITELIST) 

(SETO  RESULT  NIL) 

[COND 

( f EO  (GNU  SENSOR NUMBER) 

(QUOTE  S)) 

( COND 

( ( LESSP  LNCHLAT  (QUOTE  27.5)) 

(printout  T  T 

" ADS1  REPORT  RECEIVED  THAT  IS  OUTSIDE 
NORMAL  SATELLITE  COVERAGE  RANGE." 

T  T 

"ADSSOUTH  REPORTS  LAUNCH  EVENT  AT  LATITUDE  OF:  " 

LNCHLAT  "  degrees."  T  T 

"  N o r ra a  1  AD S S 0 U T H  satellite  e o v e r  a q e  e x t e n d s  f r o rn 
£7.5  to  40  degrees  south  LATITUDE*" 

T  T 

"  V  o  u  a  r  e  n  o  w  i  n  a  s  e  p  a  r  a  t  e  b  r  e  a  k  w  i  n  d  o  w  . " 

T  T 

"Type  GO  followed  by  a  carriage  return  if  you  want 
SENTINEL  to  process  this  report" 

T  T 

" 0 1 h e r w i s e  t y p e  i n  t- :  ( u p  a r r o w  :  it  is  t h e  s h ifte d  k e y  t o 
t  h  e  1  o  w  e  r  r  i  g  h  t  o  f  t  h  e  c  a  r  r  1  a  g  e  r  e  t  u  r  n ) 
f o 1 1 o  w e  d  b y  a  c  a r  r i a g e  ret u r  n 
to  stop  further  processing  of  this  report." 

T  T  T) 

(BREAK1  NIL  T] 

[COND 

( ( E  0  ( G  N  C  S  E  N  S  0  R  N  U  M  B  E  R ) 

(QUOTE  N)) 

( COND 

((GREATERP  LNCHLAT  (QUOTE  29.5)) 

(printout  T  T 

" AD 31  REPORT  RECEIVED  THAT  IS  OUTSIDE 
NORMAL  SATELLITE  COVERAGE  RANGE." 

T  T 

"AD3N0RTH  REPORTS  LAUNCH  EVENT  AT  LATITUDE  OF:  " 

LNCHLAT  "  degrees.”  T  T 

"  H  o  r  rn  a  1  AD  S  N  0  R  T  H  s  atellite  c  o  v  e  r  a  g  e  e  x  t  e  n  d  s  f  r  o  rn 
15  to  29.5  degrees  south  LATITUDE." 

T  T 

"  V  o  u  a  r  e  n  o  w  i  n  a  s  a  p  a  r  a  t  e  b  r  e  a  k  w  i  n  d  o  w  . " 


"Type  GO  followed  by  a  carriage  return  if  you  want 
SENTINEL  to  process  this  report" 

T  T 

"Otherwise  type  in  r- ;  (up  arrow:  it  is  the  shifted  key  to 

the  lower  right  of  the  carriage  return) 

foil o w e d  b y  a  c a r r i a g e  ret u r n 

to  s t o p  f u r t h e r  p r o c e s s i n g  o f  t h is  re p o r t . " 

TTT) 

(BREAK1  NIL  T] 

LOOP (CO NO 

((NULL  (CAR  MATCHLIST)  ) 

(RETURN))) 

(SETQ  MATCHPT  (CAR  MATCHLIST)) 

(SETQ  MATCHLAT  (GETPROP  MATCHPT  (QUOTE  LAT))) 
(SETQ  MATCHLONG  (GETPROP  MATCHPT  (QUOTE  LONG))) 

(*  Attempts  to  match  lat  and  long  of  all  known  launch  sites  to  the 
LNCHLAT  and  LNCHLONG  announced  in  the  AD  SI  Report;  matching  is  done  to  wit 
hin  .6  of  a  degree  because  of  slight  sensor  variations  in  reporting  launch  coordinat 
es) 


[COND 

( (LESSP  (ABS  (DIFFERENCE  MATCHLAT  LNCHLAT ) ) 
(QUOTE  .6)) 

(COND 

((LESSP  (ABS  (DIFFERENCE  LNCHLONG 

MATCHLONG)) 

(QUOTE  .6)) 

(SETQ  RESULT  MATCHPT] 

(SETQ  MATCHLIST  (COR  MATCHLIST)) 

(GO  LOOP)) 

(printout  T  "SITE  MATCHES  "  RESULT  T  T) 

(COND 

((NULL  RESULT) 

(PROG  NIL  (+  New  launchsites  are  named  LS 

15,  LSI©  and  so  on  as  the  LSCOUNTER  counts  up'i 

(SETQ  LSCOUNTER  (PLUS  LSCOUNTER  1)) 

(SETQ  RESULT  (CONCAT  (QUOTE  LS) 

LSCOUNTER)) 

(SETO  RESULT  ( MKATOM  RESULT)) 

(SETQ  LNCHSITELIST  (APPEND  LNCHS I  TEL  I  ST 

(LIST  RESULT))) 

(PUT PROP  RESULT  (QUOTE  LAT) 

LNCHLAT) 

(PUT PROP  RESULT  (QUOTE  LONG) 

LNCHLONG)) 

(HJVALCALL  RESULT)))  (*  BSSCALL  and  FAN  are  invoke 

d  only  if  the  property  list  of  the  launch  site  does  not  already  contain  B  S  S  TAG  and  F 
ANCALL) 

(PUTPROP  EVE  NT  COUNT  (QUOTE  F'lLS) 


SB] 


nuuvi.  i 


(COND 

((NULL  (GETPROP  RESULT  (QUOTE  BSS'TAG) ) ) 

(BSSCALL  RESULT)))  (*  this  is  with  the  "dumb"  i 

IMPLEMENTATION  OF  FANCA.LL) 


(SETQ  TARGETLIST  (REVERSE  (APPEND  TGTAREA4  TGTAREA3 

TGTAREA2  TGTAREA1) ) ) 


(COND 

((NULL  (GETPROP  RESULT  (QUOTE  FANCALL))) 
(FAN  RESULT) 

(PUTPROP  RESULT  (QUOTE  FANCALL) 
FANLI3T) ) ) 


EVENTS  a  re  only  added  to  the  event  list  when  they  are  unique,  T 
his  prevents  MODIFY'  from  adding*  many  events  to  the  EVENT  LIST  when  only  one  e 
vent  is  involved) 


[COND 

((NULL  (FMEMB  EVENTCOUNT  EVENTLI8T)) 

(SETQ  E'v'ENTLIST  (APPEND  EVENTLIST  (LIST  EVENTCOUNT] 

(*  The  A.DS1  Report  can  now  be 

processed  by  running  rule  sets) 

( SET  O'  P1SENS0RC0NF  (CADDR  ADS1REP0RT) ) 

(SETQ  PI I R INTENSITY  (CADAR  (CDADAR  ADS1REP0RT) ) ) 

( R  u  n  R  S  ( Q  U  0  T  E  A  D  S 1 C  o  n  f  i  cl  e  n  c  e ) ) 

( R u n R S  ( Q U 0 T E  Reg i o n s  ) )  (*  No w  th e  user  re c e ive s  th e  n otif 

ication  and  result  of  processing  the  A.DS1  Report) 

(OF) 

( printout  T  "AD S 1  I N D I C AT  1 0 N  OF  LA IJ N C H  R EC E I V ED:"  T  T 
"The  EVENT  NUMBER  assigned  is:  " 

EVENTCOUNT  T  T  "1,  DETECTED:  "  PRESENTIME  T 

"2.  ADS:  " 

( 6  E  T  P  R  0  P  E  V  E  N  T  C  0  IJ  N  T  ( 0  IJ  0  T  E  PISE  N  S  0  F:  T  V  P  E ) ) 

T  "3.  REGION:  "  REGION  T  “4.  SITE:  " 

( 6  E  T  P  R  0  P  E  V  E  N  T  C  0  IJ  N 1  i  0  U  0  T  E  P 1 L  S  T  Y  P  E ) ) 

T  "5.  LAUNCHER  TYPE;  (GETPROP 
EVENTCOUNT 
(QUOTE  PI  IF:  TYPE)) 

T  "6.  CONFIDENCE:  "  (GETPROP  EVENTCOUNT 

(QUOTE 

P1C0NFIDENCE) ) 

T  T 

"The  AD S 2  F: e p o r t  f o r  t h is  la u n c h  e v e n t  i s  e x p e c ted  at:  " 

( G  E  T  P  R  0  P  E  V  E  N  T  C  0  IJ  N  T  ( Q  IJ  O' T  E  P 1 T  I M  E ) ) 

"  HOURS."  T  T 

"  F  u  r  t  l'i  e  r  e  x  p  1  a  n  a  t  i  o  n  c  a  n  b  e  o  b  t  a  i  n  e  d  b  y  t  y  p  i  n  g  a  T , " 

T  " o t  h e  r w i s e  t  y p  e  NIL  t  o  p  r o c  e  e  d .  "  T ) 

(+  An  rudimentary  explanation  ca 
p ability  is  provided  by  SCHEDULER  which  consists  of  the  outlining  of  ail  five  factor 
s  which  compose  the  A.DSi  confidence  lev  ell 

(SETQ  READ  (RATOM  NIL  NIL)) 
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T  "otherwise  type  NIL  to  proceed."  T) 

(*  An  rudimentary  explanation  ca 
pability  is  provided  by  SCHEDULER  which  consists  of  the  outlining  of  all  five  factor 
s  which  compose  the  AD31  confidence  level) 

(8ET0  READ  (RATQM  NIL  NIL)) 

(COND 

((NULL  READ) 

(RunRS  (QUOTE  ADSIFeatureSet) ) ) 

(T  (printout  T  T  "SENSOR  confidence  is:  " 

(GETPROP  EVENTCOUNT  (QUOTE  P1SENS0RC0NF ) 

) 

T  “SENSOR  capability  is:  " 

(GETPROP  EVENTCOUNT  (QUOTE  P1SENS0RCAP ) ) 
T  "  I R  r  e  a  d  i  n  q  s  c  1  a  s  s  i  f  y  e  v  e  n  t  a  s  :  " 
(GETPROP  EVENTCOUNT  (QUOTE  P1IRTYPE)) 

T  "REPORTED  type  of  launchsite  is:  " 
(GETPROP  RESULT  (QUOTE  TYPE)) 

T  "Current  INTEL  condition  is:  " 
(GetValue  IntelBoard  (QUOTE 

INTELCONDITION) ) 

T  "as  provided  by  " 

( G  e  t  V  a  1  u  e  I  n  t  e  1 B  o  a  r  d  ( Q  U  0  T  E  S  0  U  R  C  E ) ) 

"  sources."  T) 

(*  Finally,  to  reduce  the  event  list 
down  to  a  feature  set,  ADSIFeatureSet  is  invoked) 

( R  u n  R  S  ( 0  U DTE  A  D  S 1 F  e a  t  u r e  S e  t ] ) 

(SCHEDULER) 

17+ 

NIL 

17+ 

NIL 

17+ 

NIL 

17+ 

NIL 

17+ 

NIL 

17+ 

NIL 

17+ 

NIL 

17+ 

NIL 

17+ 

NIL 
17  + 

NIL 

17+ 

NIL 

17+ (REDO  100) 


1 


us  my  a-oerisuronecr 

RuleSet  SensorCheck 

Last  Edited;  s  oct-85  14;20;29  tiy 

Workspace  Class:  Boards ; 

Compiler  Options:  ; 

Temporary  Vars:  XVAR  WAR  FNUMBER  SNUMBER  SIJMNUMBER; 

Control  Structure:  DOALL; 

j4>-  :4*  :4c  4-  4-  4  ;4; 


(*  SensorCheck  is  invoked  by  AQS2HANDLER  upon  a  successful 
matchinq  ef  an  ADS1  to  an  A0S2  event.  Using  the 
LAUNCHSITE,  OUTAGEREASOH  and  RPTSENSORCAP  variables  of 
the  MATCHBoard  placed  by  A0S2HANDLER  at  the  match: 
SensorCheck  analyzes  this  data  to  provide  a  COMMENT 
and  EXPNUMBER  which  is  then  added  to  MATCHBoard.) 


Turn  wtiAn  .  n  ft  t  r.  1 1  r»  .  ...  .i  .  r.  r. »  r. 

i  new  a  v  HisfiMrt  i  unouciru  ; 

Y V AR* ( e E T P R 0 P  X V A R  1 T Y P E ) 

SNUMBER*4; 

(*  The  default  value  for  SNUMBER  is  4) 

IF  MATCHBoard : OUTAGEREASON  =  ’TEST 
THEN  SNUMBER*!; 

( *  W i s h  t o  e r r  o n  side  of  c a u t i o n ,  T E S T  c o n d i t i o n s  for  US 
m  a  y  lead  t  o  w  r  o  n  q  i  n  d  i  c  a  t  i  o  ri  s  .  0 1  h  e  r  0  U  T  A  G  E  REA  S  0  N  S  a  r  e  rn  a  p 
ped  below.)  IF  MATCHBoard: OUTAGEREASON  =  'SABOTAGE 
THEN  8NUMBER*2; 

IF  MATCHBoard: OUTAGEREASON  =  'FAILURE 
THEN  SNUMBER*.:! ; 

I F  MATCHBoard : OUTAGEREASON  =  ' MA I  NT E NANCE 
THEN  SNUMBER* 3; 

IF  M A T 0 H B o a r d  :  0 IJ T A G E R E A S 0 N  =  '  U N K N 0 W N 
THEN  SNUMBER*!' ; 

( *  H  o  i  n  f  o  o  n  1  a  u  n  c  h  site  me  a  n  s  it  is  u  n  k  n  o  w  n )  IF  Y  V  A  R  =  '  N 
I L  THEN  MAT C H  B o a  r  d : L  A U  N C  H  S I T  E  * ’ U  N  K  N  0  W N 
FNUMBER* 2; 

(*  Known  sites  are  RED  RED!  R E D 2  suspect  ones  GREEN)  IF  (GN 
C  YVAR)  =  ' R  THEN  MATCHBoard : LAUNCHSITE* ' KNOWN  FNUMBER *4; 


IF  ( GNC  YVAR) 
NUMBER*3; 


'6  THEN  MATCHBoard: LAUNCHSITE*’ SUSPECTED  F 


rirst  cornoine  type  or  site  witri  outage  reason;  intm  ^isuri 
RS  'Combinatorial)  SNUMBER*SUMNUMBER; 

IF  MATCHBoard : RPTSENSORCAP  =  'FULL  THEN  FNUMBER*4; 

IF  MATCHBoard : RPTSENSORCAP  =  ’PARTIAL 
THEN  FNUMBER*3; 

IF  MATCHBoard : RPTSENSORCAP  =  'ZERO 
THEN  FNUMBER*2; 

( *  Then  combine  result  of  first  with  sensor  capability) 

THEN  (  RunRS  '  Comb  i  nator  i a  1 ) 

MAT  C  H  B  o  a  r  d  :  E  X  P  N  U  M  B  E  R  *  S  U  M  N IJ  M  B  E  R ; 

( *  N  o  w  i  n  t  e  r  p  r  e  t  r  e  s  u  Its  o  n  1  y  w  a  y  t  o  g  e  t  o  n  e  i  s  b  e  1  o  w  . ) 

IF  MATCHBoard: RPTSENSORCAP  =  'ZERO 
MATCHBoard :LAUNCH3ITE  =  'UNKNOWN 
MATCHBoard  :  OIJTAGEREASON  --=  *  SABOTAGE 
THEN  MATCHBoard : EXPNUMBER+1 j 

(*  The  COMMENTS  are  now  attached  to  MATCHBoard) 

IF  MATCHBoard : EXPNUMBER  =  4 

THEN  MATCHBoard : COMMENT* ' C  PR  I NTGUT  T  " Cred ib i 1 1 tv  of  Sensor 
:  VERY  GOOD  "  T) ; 

IF  MATCHBoard: EXPNUMBER  =  3 

THEN  MATCHBoar  d : COMMENT* ' ( PR  I NTOUT  T  " Cred i b i 1 i ty  of  Sensor 
:  GOOD  "  T ) ; 

IF  MATCHBoard : EXPNUMBER  =  2 

THEN  MATCHBoard : COMMENT* ' (PRINTOUT  T  "Credibility  of  Sensor 
:  POOR  "  T  "Due  to:  "  CAUSE  T  ); 

IF  MATCHBoard : EXPNUMBER  =  1 

THEN  M  A  T  C  H  B  o  a  r  d  :  C  0  M  M  ENT*'  (  P  R I N  T  0  IJ  T  T  "  C  r  e  d  i  b  i  1  i  t  y  o  f  S  e  n  s  o  r 
:  VERY  POOR  "  T  "Due  to:  "  CAUSE  T  ) ; 

THEN  (PRINTOUT  T  T  "This  is  launchsite  type:  "  MATCHBoard: 
LAUNCHSITE  T  "This  is  sensor  capability:  "  MATCHBoard : RPTSE 
NSORCAP  T  "This  is  outage  reason:  "  MATCHBoard :  OIJTAGEREASON 
)  (PRINTOUT  T  "REPORTING  SENSOR  CHECK  reveals"  T)  (EVAL  (Ge 
t.  V  a  1  u  e  MAT  C  H  B  o  a  r  d  '  C  0  M  M  E  N  T ) ) ; 

( *'  Note  this  really  is  not  part  of  the  comment  but  can  be  d 

uplicated  easily)  IF  MATCHBoard : EXPNUMBER  <=  2 

THEN  (PRINTOUT  T  (GetValue  MATCHBoard  ’OIJTAGEREASON)  T ) ; 


(*  Note  this  really  is  not  part  of  the  comment  but  can  be  d 
uplicated  easily)  IF  MATCHBoard : EXPNUMBER  <=  2 
THEN  (PRINTOUT  T  (GetValue  MATCHBoard  ' OUTAGEREASON)  T) ; 

THEN  (SETO  PilRTYPE  (GETPROP  EVENTMATCH  'PilRTYPE)) 
MATCHBoard  :  LAUNCHERTVPE* 1  TYPES: 


IF  PilRTYPE  =  'TYPE!  P2IRTYPE  =  1  THEN  MATCHBoard : LAUNCHER 
TYPE* 'TYPE 1; 

#&( Ru 1 eSetSour ce  " GWU0 . i I [ : . PG8 . 35 " ) 

19* 

NIL 

19* 

NIL 

19* 

NIL 

19* 

NIL 

19* 

NIL 

19* (PP  SYS HANDLER) 

(SYSHANDLER 

[LAM B D  A  ( S  Y S M S G  )  (+  e d ite d ;  " 22-  Jul- ©5  i  S; 42" 1  :> 

( P R 0 G  ( 0 U T  A  G  E  T Y  P E  S  E  N S  0 R  C A  P A  B I L I T Y  TIMET  0 R E  S  TORE 

0 U  T  A  G  E  T I M  E  S E  N  S 0 R T  Y  P E  S  U B S Y STEM 
FRAGMENT  REASON  SYSTEMSG) 

(SETO  SYSTEMSG  SYS MSG) 

( S  E  T  0  S  E  N  S  0  R  C  A  P  A  B 1 1. 1 T  Y  ( C  A  D  R  S  V  S  T  E  M  S  G ) ) 
f  SETO  T I M  E  T  0  R  E  S T 0 R  £  f C A  D  D  A  R  S  Y S  T  E  M 8 G ) ) 

(SETQ  F  R A  G M E  N T  ( C  D  A  D A  R  S Y S T  E  M S G  )  ) 

( S  E  T  0  0 IJ  T  A  6  E  T  Y  P  E  ( C  AAR  F  R  A  G  M  E  N  T  ) ) 

(SETO  OUTAGETIME  (CADR  FRAGMENT)) 

( S E  T  0  S  E  N S 0  R  T  Y P E  ( 0  A  D  A  R  FRAG M E  N T ) ) 

( S  E  T  0  S  U  B  S  Y  S  T  E  M  (  C  A  D  D  A  R  F  R  A  G  M  E  N  T ) ) 

(SETQ  REASON  (CADR  (COOAR  FRAGMENT))) 

( printout  T  "THIS  I S  0 U T A G E  T Y P E  "  0 U T  A  G  E  T Y PE  T 
"THIS  IS  SEN30RCAPAB I L I TY  " 

SEHSORCAP ABILITY  T 
"THIS  IS  TIMETORESTORE  " 

TIMETORESTORE  T  "THIS  IS  OUTAGETIME  " 
OUTAGETIME  T  "THIS  IS  SENSORTYPE  " 
SENSORTYPE  T  "THIS  IS  SUBSYSTEM  " 
SUBSYSTEM  T  "THIS  IS  REASON  "  REASON  T) 
( R  u  n  R  S  ( 0  U  0  T  E  S  Y  S  A  n  a  1  y  s  t  ] ) 

(SYSHANDLER) 


us  my  *oerisuriii<3(j 

RuleSet  SensorMap 

Last  Edited;  3- Oct- 85  18;37;44  by 

Workspace  Class:  Sensors; 
Compiler  Options:  ; 
Temporary  Vars:  ; 

Control  Structure:  OOALL; 

4** * + + * * 


(*  SensorMap  permits  the  numerical  sensor  rating  that  i 
rr led  in  the  EVENT LIST  to  he  broken  back  down  into  its 
t i t u e n t  p a r t s :  S E N S 0 R C 0 N F  a n d  S E N SORCAPABILIT V , ) 

IF  SENSORNUM  =  9 

THEN  (SETQ  SENSORCAP  ‘FULL) 

(SET Q  SENSORCONF  'HIGH); 

IF  SENSORNUM  =  8 

THEN  (SETO  SENSORCAP  'FULL) 

( S  E  T  Q  S  E  N  S  0  R  C  0  N  F  'MED  IJ I M ) ; 

IF  SENSORNUM  =  7 

THEN  (SETQ  SENSORCAP  'PARTIAL) 

(SET Q  SENSORCONF  'HIGH); 

IF  SENSORNUM  =  6 

THEN  (SETO  SENSORCAP  'FULL) 

(SETO  SENSORCONF  ’LOW); 

IF  SENSORNUM  =  5 

THEN  (SETO  SENSORCAP  'PARTIAL) 

(SET  Q  S  E  N  S  0  R  C  0  N  F  'ME  D  IJ  I M ) ; 

IF  SENSORNUM  =  4 

THEN  (SETO  SENSORCAP  'ZERO) 

(SETO  S E  N S 0  R  C  0 N  F  'HI G  H ) ; 

IF  SENSORNUM  =  3 

THEN  (SETO  SENSORCAP  'PARTIAL) 

(SETQ  SENSORCONF  ’LOW); 

IF  SENSORNUM  =  2 

THEN  (SETO  SENSORCAP  'ZERO) 

( S  E  T  0  S  E  N S  0 R C  0  N F  'MED  U I M ) ; 

IF  SENSORNUM  =  1 
THEN  (SETQ  SENSORCAP  'ZERO) 
i  S  E  T  0  S  E  N  S  0  R  C  0  N  F  '  L  0  W ) ; 


(SENTINEL 

[LAMBDA  NIL  (*  edited:  "  9-Oct-ss  14:40") 

(*  This  function  restores  the  lists, 

counter  and  LOOPS  objects  use d  in  SENTINEL  to  their  original  condition,) 

(PROG  (MATCHLIST  MATCHPGINT  MUST  MPOINT) 

(SETO  READ VAR  (QUOTE  T)) 

(SETO  LNCHLONG  NIL) 

(SETO  LNCHLAT  NIL) 

(SETO  LSCOIJMTER  (QUOTE  14)) 

(SETO  I  NT COUNTER  0  ) 

(SETQ  CAUSE  (QUOTE  UNCLEAR)) 

(+  This  part  removes  the  property 
lists  of  any  launchsites  added  to  the  LNCHSITELIST  after  LSI 4;  that  is  after  any  pr 
eviously  unknown  launchsite'i 

(PROG  (ZAPLI3T  ZAPPOINT) 

(SETQ  ZAPLIST  (FMEMB  (QUOTE  LS15) 

LNCHSITELIST)) 

LOOP ( COND 

((NULL  (CAR  ZAPLIST)) 

(RETURN))) 

(SETQ  ZAPPOINT  (CAR  ZAPLIST)) 

(REMPROP  ZAPPOINT  (QUOTE  LAT)) 

(REMPROP  ZAPPOINT  (QUOTE  LONG)) 

( R E M P R 0 P  ZAP P 0 1 N T  ( Q IJ 0 T E  HI V ALTA G ) ) 

( R  E  M  P  R  0  P  Z  A  P  P  0 1 N  T  ( Q  IJ  0  T  E  B  S  S  T  A  G ) ) 

(REMPROP  ZAPPOINT  (QUOTE  FANCALL)) 

(SETQ  ZAPLIST  (COR  ZAPLIST)) 

(GO  LOOP))  (*  This  part  removes  the  property 

list  of  ail  past  events  whose  tag  is  stored  in  the  EVENTLIST;  EVE  NT  LIST  is  restor 
ed  after  ward  si 

(PROG  (ZPOINT) 

LOOP ( COND 

((NULL  (CAR  EVENTLIST)) 

(RETURN) ) ) 

(SETO  ZPOINT  (CAR  EVENTLIST)) 

(REMPROP  ZPOINT  (QUOTE  PIT  I  ME)) 

( R E M P R 0 P  Z P 0 1 N T  ( 0 IJ 0 T E  PI S E N S 0 R ) ) 

(  R  E  M  P  R  0  P  Z  P  0 1  N  T  ( Q  IJ  0  T  E  P 1 1 R  T  V  P  E ) ) 

( F: E M P F; 0 P  Z P 0 1 N T  ( Q IJ 0 T E  PI S E N S 0 F: C 0 N F ) ) 

( R  E  M  P  R  0  P  Z  P  0 1 N  T  (  Q  IJ  GTE  P 1 S  E  N  S  0  F:  T  V  P  E ) ) 

( F:  E  M  P  R  0  P  Z  P  0 1 N  T  ( Q  IJ  0  T  E  PISE  N  S  0  R  C  A  P ) ) 

( R  E  M  P  R  0  P  Z  P  0 1 N  T  ( i j  IJ  0  T  E  P  I  C  0  N  FIDE  N  C  E ) ) 

( F;  E  M  P  R  0  P  Z  P  0 1 N  T  ( 0  IJ  0  T  E  P 1 L  S  T  V  P  E ) ) 

(REMPROP  ZPOINT  (QUOTE  P1LS)) 

(REMPROP  ZPOINT  (QUOTE  P2TIME) ) 

(REMPROP  ZPOINT  (QUOTE  P2TVPE) ) 

( F:  E  M  P  R  0  P  Z  P  0 1 N  T  ( Q  IJ  0  T  E  P  2  S  E  N  S  0  F: ) ) 

( F:  E  M  P  F:  0  P  Z  P  0 1 N  T  ( Q  IJ  0  T  E  P  2  C  0  N  FIDE  N  C  E ) ) 

( F:  E  M  P  F:  0  F'  Z  F'  0 1 N  T  ( 0  IJ  0  T  E  P  2  H  V  F'  0 ) ) 

(  F:  E  M  P  F:  0  P  Z  P  0  I N  T  (  0  IJ  GTE  P  2  H  E  A  D I N  G )  ) 


I,  bU  LUUHj;  (*  The  target  and  launchsite  lists 

are  initialized  and  EVE  NT  LI  S  T  is  initialized  so  that  events  can  t<e  CONsed  to  it) 
(SETQ  EV CO UN TER  1) 

(SETQ  EVENTLIST  (LIST  (QUOTE  EVENTS))) 

(SETQ  EVENTLIST  (REMOVE  (QUOTE  EVENTS) 

EVENTLIST)) 

(SETQ  LNCH3ITELIST 

(QUOTE  (LSI  LS2  LS3  LS4  LS5  LS6  LS7  LS8  LS9 
LS1S  LS11  LS12  LS13  LS14))) 

(SETQ  BSSLIST 

(QUOTE  (TGTSi  TGTS2  TGTS3  TGTS4  TGTS5  TGTS6 
TGT87) ) ) 

(SETQ  HIVALTGTLIST 

(QUOTE  (TGT1  TGT2  TGT3  TGT4  TGT5  TGTS))) 

(SETQ  TGTAREA1 

(QUOTE  (TGT7  TGTS  TGT9  TGT1S  TGT11  TGT12  TGT13 
TGT14 ) ) ) 

(SETQ  TGTAREA2 

(QUOTE  (TGT15  TGT16  TGT17  TGT18  TGT19  TGT2S 
TGT21  TGT22) )  ) 

(SETQ  T GTAREA3 

(QUOTE  (TGT23  TGT24  TGT25  TGT28  TGT27) ) ) 

(SETQ  TGTAREA4 

(QUOTE  ( TGT28  TGT29  TGT3S  TGT31  TGT32  TGT33) ) ) 

C*  Insures  that  the  HIV  ALT  AG  pro 
pertv  is  embedded  on  the  property  list  of  each  launchsite ’i 
(PROG  (LSHIVAL  HIVALIST) 

(SETQ  HIVALIST  LNCHSITEL18T) 

LOOP (0 ON D 

((NULL  (CAR  HIVALIST)) 

(RETURN))) 

(SETQ  LSHIVAL  (CAR  HIVALIST)) 

(CON  D 

((NULL  (GETPROP  LSHIVAL  (QUOTE  HIVALTAG)) 
) 

(HIVALCALL  LSHIVAL))) 

(SETQ  HIVALIST  (CDR  HIVALIST)) 

(GO  LOOP)) 

(*  This  erases  the  embedded  results  of  any  SYS  messages  on  all  the 
sensors;  E;SS  sites,  ADS  S  GUT  h,  ADS  NORTH  and  all  the  C3  network  or  high  value 
targets  CAPABILITY  of  all  sensors  reset  to  FULL) 


(  P  R  0  G  ( Z  A  P  L  I S  T  Z  A  P  P  0 1 N  T  ) 

(SETQ  ZAPLIST  (APPEND  BSSLIST  HIVALTGTLIST) 

) 

(SETQ  ZAPLIST  (CONS  (QUOTE  ADSNORTH) 

ZAPLIST) ) 

(SETQ  ZAPLIST  (CONS  (QUOTE  ADS SOUTH) 

ZAPLIST) ) 


me  S' 


ZAPLIST)) 

LOOP(COND 

((NULL  (CAR  ZAPLIST)) 

(RETURN))) 

(SETO  ZAPPOINT  (CAR  ZAPLIST)) 

(PUTPROP  ZAPPOINT  (QUOTE  CAPABILITY) 
(QUOTE  FULL)) 

(REMPROP  ZAPPOINT  (QUOTE  REASON)) 
(REMPROP  ZAPPOINT  (QUOTE  TYPE)) 
(REMPROP  ZAPPOINT  (QUOTE  RESTORETIME)) 
(REMPROP  ZAPPOINT  (QUOTE  OUTTIME)) 
(SETQ  ZAPLIST  (COR  ZAPLIST)) 


(GO  LOOP)) 

v'S  Board  of  £>.i  I  p  ast  vai  u  e  i) 


This  clears  the  Intel 6 card  and 


I n t  elB o a  r d 
NIL) 

(QUOTE 

SOURCE ) 

I  n  t  e  1 B  o  a  r  d 
N I L ) 

(QUOTE 

SO URGE COUNTRY) 

Intel  Board 
N I L  ) 

(QUOTE 

I NTELCOND I T I  ON) 

Intel  Board 
N I L ) 

(QUOTE 

INTELTYPE) 

I nte 1  Board 
N I L ) 

(QUOTE 

REPORTEDCOUNTRY) 

I nte 1 Board 
NIL) 

(QUOTE 

COMMENT) 

IntelBoard 
0  ) 

(QUOTE 

EXP NUMBER) 

SYSBoard 
N I L ) 

(QUOTE 

0 IJ  T  A  G  E  R  E  A  S  0  N  ) 

SYSBoard 
N I L ) 

(QUOTE 

TYPE OF OUT AGE) 

S  Y  S  B  o  a  r  d 
N I L ) 

(QUOTE 

TYPEOF SENSOR) 

S  Y  S  B  o  a  r  d 
N I L ) 

(QUOTE 

RESTORATIONTIME) 

S  Y  S  B  o  a  r  d 
N I L ) 

(QUOTE 

CAPABILITY 0  F  S  E  N 3  0  R 

SYSBoard 
0  ) 

(QUOTE 

OUTSENSOR) 

SYSBoard 
0  ) 

(QUOTE 

OUT TEST) 

S  Y  S  Eli  o  a  r  d 
0  ) 

SYSBoard 
0  ) 

S  Y  S  B  o  a  r  d 
0  ) 

(QUOTE 

0  U  T  S  AB0TA6E) 

(QUOTE 

AFF SENSOR) 

(QUOTE 

OUTFA I  LURE ) 

S  V  3  B  o  a  r  d 
0) 

(QUOTE 

OUTTOTAL) 

£ 


19 


( h'utva  i  ue  s  v  so oar a  { y  uu  it  uu  i  i  u  i  al  ) 

0) 

(Put Value  SY SBoard  (QUOTE  OUTEMERG) 

0) 

( P  u  t  V  a  1  u  e  S  V  S  B  o  a  r  d  ( 0  U  0  T  E  C  0  M  M  E  N  T ) 

(QUOTE  (printout.  T  T 

“NO  SYS  Reports  Received.  " 
T 

"OVERALL  SYS  STATUS:  VERY  GOOD" 

T))) 

( P  u  t  V  a  1  u  e  S  Y  S  B  o  a  r  d  C  0  U  0  T  E  E  X  P  N  U  M  B  E  R ) 

4) 


(Put Value  SY 
0) 

(Put Value  SY 
0) 

(Put Value  SY 
4) 

(Put-Value  SY 
4) 

(Put Value  SY 
0) 

(Put Value  SY 
0) 

(Put Value  SY 


S  B  o  a  r  d  ( Q  U  0  T  E  A  G  S  N  U  M  B  E  R  ) 
S  B  o  a  r  d  ( 0  U  0  T  E  B  G  S  N  U  M  B  E  R ) 


SBoard  (QUOTE  AFULL) 


SB  oar  d  (QUOTE  BFIJLL  ) 
SBoard  (QUOTE  APART  I AL) 
S B o a r d  ( Q U 0 T E  B PARTIAL ) 


( P  u  t  V  a  1  u  e  S  Y  S  B  o  a  r  d  ( U IJ  U  T  E  A  2  E  R  0 ) 

8) 

( P  u  t  V  a  1  u  e  S  Y  S  B  o  a  r  d  (  Q  U  0  T  E  B  2  E  R  0  ) 

0) 

(SETO  MESSAGE  NIL) 

( PUTPR  0  P  ( 0  U  0  T  E  A  D  S  S  0  IJ  T  H ) 

(QUOTE  NAME) 

(QUOTE  ADSSOUTH ) ) 

( P IJ T P R 0 P  (  Q U 0 T E  AD S N 0 R T H ) 

(QUOTE  NAME) 

(QUOTE  A DSN ORTH) ) 

(SETQ  PLACE  NIL) 

(printout  T 

"SENTINEL  DECISION  AID  is  initialized.  " 

T  T) 

(printout  T 

"If  ass  i s t a n c e  i s  n e e d e d  t y p e  ( HEL P ) ,  o t h e r w  i s e  p r o c e e d 

T]) 

(SENTINEL) 


41 L 

35* { REDO  100) 


us  my  $opeuu  late 

RuleSet  Speculate 

Last  Edited:  7-Oct-SS  15:13:16  by 

Workspace  Class:  Boards; 

Comp i  1  er  Opt. i  ons  :  ; 

Temporary  Vars:  XVAR  ,  WAR  ,  MARK; 

Control  Structure:  DOALL; 

******** 


(*  Speculate  analyzes  patterns  tc  determine  whether  certain 
spec i a  1  cases  such  as  TEST ,  SABuT AGE  or  F I RsTSTR I KE  are  pr 
esent .  It  uses  PLACE  and  puts  a  COMMENT  arid  an  EXPFACT  on 
EXPLAINBoard  to  record  its  results.) 


THEN  EXF'LA  I  NBoard  :  COMMENT  *  ’NIL 
EXPLA I NBoard : EXPFACT* 'NIL 
XVAR *8  YVAR+0  ( SET Cj  PLACE  ’NIL); 

(*  First  special  case  tackled  is  TEST.) 


IF  CAUSE  -  ‘TEST 

THEN  XVAR* (PLUS  XVAR  1); 

IF  (GETPROP  'ADSNORTH  'REASON)  =  'TEST 
THEN  XVAR*  (PLUS  XVAR  1) 

(SETQ  PLACE  ‘ADSNORTH); 

IF  (GETPROP  ' ADSSOUTH  'REASON)  =  'TEST 
THEN  XVAR* (PLUS  XVAR  1) 

(SETQ  PLACE  'ADSSOUTH); 


IF  (GETPROP  '  TGT2  ’REASON) 
THEN  XVAR* (PLUS  XVAR  1) 
(SETQ  PLACE  ' BRF ) ; 

IF  (GETPROP  ' TGT4  ’REASON) 
THEN  XVAR* (PLUS  XVAR  1) 
(SETQ  PLACE  *CWC); 

IF  (GETPROP  ' TGT5  'REASON) 
THEN  XVAR* (PLUS  XVAR  1) 

(SETQ  PLACE  ' ADSGSF) ; 


IF  ( 
THEN 


GETPROP  ' TGT6  ’REASON) 
XVAR* (PLUS  XVAR  1) 
(SETQ  PLACE  'BSSGSF); 


'  TEST 

’  TEST 


'  TEST 


'  TEST 


IF  PLACE 


'NIL 


ir  KLttUt  =  NIL 

THEN  (SETQ  PLACE  SYSBoard : TYPEOFSENSOR)  ; 

IF  XVAR  >=  1 

THEN  EXPLAINBoard  :  EXPFACT * 1  TEST 

EXPLAINBoard :  COMMENT* '  (PRINTOUT  T  T  "WARNING;  US  SENSO 
R  running  TESTS  at:"  PLACE  T)  (STOP); 

(*  Second  ease  is  the  FIRSTSTftlh'E .  ) 

IF  TRENDBoard ; HIVALNUMBER  =  3  MAT CHBoard : EXPNUMBER  =  3 
THEN  EXP LA  I NBoard : EXPFACT* ' F I RSTR I KE 

EXPLAINBoard: COMMENT*' (PRINTOUT  T  T  "SOME  FIRST  STRIKE  I 
NO  I  CAT  IONS  ARE  PRESENT."  T)  (STOP); 

IF  TRENDBoard: HIVALNUMBER  >  3  MATCHBoard : EXPNUMBER  >  3 
THEN  EXPLAINBoard : EXPFACT* ' FIRSTSTRIKE 

EXPLAI NBoard : COMMENT* ' ( PR  I NT OUT  T  T  "FI RST  STR I KE  I NO  I 
CATIONS  ARE  PRESENT!"  T)  (STOP); 

(*  Third  special  case  is  SABOTAGE.) 

IF  (Get Value  SYSBoard  'CAUSE)  =  'SABOTAGE 
THEN  YVAR* (PLUS  YVAR  1); 

IF  MATCHBoard : OUTAGEREASGN  =  'SABOTAGE 
THEN  YVAR* (PLUS  YVAR  1); 

IF  (Get  V  a  1  u  e  S  Y  S  B  o  a  r  d  1  0  U  T  S  ABUT  A  u  E  )  /  —  z 
(Get Value  SYSBoard  ' AGS NUMBER)  <  4 
THEN  YVAR* (PLUS  YVAR  1); 

IF  YVAR  >=  2 

THEN  EXPLAI NBoard : EXPFACT* ' SABOTAGE 

EXPLAINBoard: COMMENT*' (PRINTOUT  T  T  "WARNING:  WIDESPREAD 
i  n  d  i  c  a  t  i  o  n  s  o  r"  S  A  B  0  T  A  G  E  p  resent."  T )  ( S  T  0  P ) ; 

(*  Fourth  case,  P2BSS  is  compared  to  SENTINEL  ca Insulations 
a  n  d  s  i  t.  e  a  r  e  c  h  e  c  k  e  d  f  o  r  FULL  c  a  p  a  bill  t.  y  ,  ) 

THEN  XVAR* (MK A TOM  (CONG AT  ' TGT0  (GNC  P2BSS) ) ) 

YVAR* (MK ATOM  (CO NC AT  ' TGT0  ( GLC  P2BSS)  ) ) 

E  X  P  L  A I N  B  o  a  r  d  :  E  X  P  F  A  C  T  *  '  N I L ; 

IF  (EOMEMB  XVAR  DetectBoard : W I LLDETECT )  =  'T 
(EOMEMB  YVAR  DetectBoard: W I LLDETECT)  =  'T 
THEN  MARK* 'MATCH; 

IF  MARK  =  'MATCH 

( 6ETPR0P  XVAR  ’CAPABILITY)  =  'FULL 


ir  ^turotniD  avak  uetectooara : wiLLUt i tu i ;  =  i 
(EQMEMB  WAR  DetectBoard : WI LLDETECT )  =  'T 
THEN  MARK*' MATCH; 

IF  MARK  =  'MATCH 

(GETPROP  XVAR  'CAPABILITY)  =  'FULL 
(6ETPRQP  WAR  'CAPABILITY)  =  'FULL 
THEN  MARK* ' FULLMATCH; 

IF  MARK  =  'MATCH 

THEN  EXPLAINBoard : EXPFACT+ ' BSS 

EXPLAINBoard: COMMENT* ' (PRINTOUT  T  T  "SENTINEL  concurs  wit 
h  ADS-2  BSS  prediction."  T  "However,  BSS  sites  that  should 
detect  are  impaired."  T ) ; 

IF  MARK  =  'FIJLLMATCH 

THEN  EXPLAINBoard : EXPF ACT* ' BSS FULL 

EXPLAINBoard: COMMENT*' (PRINTOUT  T  T  "SENTINEL  concurs  wit 
h  ADS-2  BSS  prediction."  T  "Intercepting  BSS  sites  are  in  F 
ULL  operation."  T); 

# & ( Ru  1  eSetSource  "  S I U8  .  z  I  [ :  .  Je8 . 16 " ) 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* 

NIL 

44* (REDO  100) 


us  my  ^oTonrid  lyst 
RuleSet  SYSAnalyst 

Last  Eoiteo;  r-oct-ss  is;os;oo  Dy 
Workspace  Class:  Reports; 

Compiler  Options:  ; 

Temporary  Vars:  OLOCAP  OLOTYPE  TAG  XVAR; 

Control  Structure:  DOALL; 


(*  This  ruleset  analyzes  the  incoming  SYS  reports,  and  post 
s  v  a  1 u  e  s  o  n  the  S  V S B  o a r  d ) 

THEN  XVAR* 'NIL  ULDCAP* ‘ NIL ; 


IF  OUTAGETYPE  =  'E 

THEN  (SETQ  OUTAGETYPE  ‘EMERGENCY); 

IF  OUTAGETYPE  =  'R 

THEN  (SETQ  OUTAGETYPE  ’ROUTINE); 


IF  SEN3GRCAP AB I L I T Y  =  'F 

THEN  (SETQ  SENSORCAPAB I L I TY  'FULL); 


IF  SENSORCAPAB I L I TY  =  'P 

THEN  (SETQ  SENSORCAPAB I L I TY  ‘PARTIAL); 

IF  SENSORCAPAB ILITY  =  '2 

THEN  (SETQ  SENSORCAPAB ILITY  ’ZERO); 

IF  REASON  =  'T 

THEN  (SETQ  REASON  'TEST); 

IF  REASON  =  ‘M 

THEN  (SETQ  REASON  ’MAINTENANCE); 

IF  REASON  =  'F 

THEN  (SETQ  REASON  ’FAILURE); 


IF  REASON  =  'S 

THEN  (SETQ  REASON  ’SABOTAGE); 
IF  REASON  =  'U 

THEN  (SETQ  REASON  'UNKNOWN); 


(*  It  S e 'ri S u r' t y p G  =  'ri U ni '0 Or’,  Lrieri  it  i S  d  oSS  Site,  eiiiueu  iriTu 
on  the  property  list  of  the  BSS  site  as  well  as  updating  th 
e  SYSBoard.) 


e  sYSDOara . ) 


IF  (NUMBERP  SENS' OR  TYPE ) 

THEN  TAG*(MKATOM  (CONCAT  1 TGT0  SENSORTYPE))  XVAR* 1  TRUE; 


(*  Then  the  Tag  is  created  for  the  rest  of  the  sensors) 


IF  SENSORTYPE  =  '  A 
THEN  TAG* ' TGT5; 


IF  SENSORTYPE  = 
THEN  TAG* 'TOTS; 


•B 


IF  SENSORTYPE  =  '  C 
THEN  T AG* ' TGT3; 


IF  SENSORTYPE  =  'F 
THEN  TAG* ' T6T2; 


IF  SENSORTYPE  =  '  N 

THEN  TAG* 1 ADSNORTH  X VAR* ‘TRUE; 


IF  SENSORTYPE  =  'S 

THEN  TAG* ' ADSSOUTH  XVAR* 1  TRUE ; 


(*  Insures  two  or  more  SYS  reports  from  a  single  sensor  are 
not  logged  as  two  or  more  SENSORS  that  are  OUT) 


THEN  0 L D C A P * ( G E T P R 0 P  TAG  'CAPABILITY) 

S  Y  S  B  o  a  r  d  :  0  U  T  T  0  T  A I.  *  ( P  L  U  S  S  Y  S  B  o  a  r  d  :  0  U  T  T  0  T  A  L  1) ; 


IF  OLDCAP  =  'PARTIAL 

THEN  SYSBoard : AFFSENSOR* ( SUB1  SYSBoard : AFFSENSOR ) ; 


IF  OLDCAP  =  'ZERO 

THEN  S  Y  S  B  o  a  r  d  :  0 IJ  T  S  E  N  S  0  R  *  i  S IJ  B  i  S  Y  S  B  o  a  r  d  :  0  U  T  S  E  N  S  0  R  )  : 


(*  The  appropriate  Instance  Variables  are  updated  on  the  SY 
S B o a r d  f o r  all  sen s o r  sites,  i n c 1 u d i n g  C 3  o n e s . ) 


IF  SENSORCAPABI L 1 TV  =  'PARTIAL 

THEN  S  Y S  B o  a  r  d : A  F  F S  E  N S  0 R * ( P  L  U S  S  Y S B o a r  d : A  F  F  S  E N S  0 R  1 ) ; 


IF  REASON  =  'FAILURE 

THE N  S Y S B o a r  d : 0 U T F A I L U R E * ( P L U S  S Y S B o a r d : 0 U T F A I L U RE  1 ) ; 


IF  SENSORCAP ABILITY  =  'ZERO 

THEN  S  V  S  B o a  r  d ; 0 U  T  S E  N  S  0 R * ( P  L  U S  S  Y S B o  a  r d : 0 U T  S  E  N S 0 R  1 ) ; 


IF  REASON 


TEST 


lr  KtrtSUN  =  I  ££>  I 

THEN  SYSBoard :  OUTTEST<-(PLUS  SYSBoard  :  OUTTEST  1) 

SYSBoard :  TVPE0F3ENSQR*(6ETPR0P  TAG  'NAME); 

IF  REASON  =  'SABOTAGE 

THEN  SYSBoard : OUTSABOTAGE*(PLUS  SYSBoard : OUTSABOTAGE  1) ; 

IF  OIJTAGETYPE  =  'EMERGENCY 

THEN  SYSBoard :  GUTEMERG*(PLUS  SYSBoard:  OUTEMERG  1); 

THEN  (PUTPROP  TAG  'CAPABILITY  SENSORCAPAB I L I TY ) 

(PUTPROP  TAG  'REASON  REASON) 

(PUTPROP  TAG  'TYPE  OIJTAGETYPE) 

(PUTPROP  TAG  ’RESTORETIME  TIMETORESTORE) 

(SETQ  SENSORTYPE  (GETPROP  TAG  ’NAME))  (CF) 

(PRINTOUT  T  "SYS  message  Acknowledged."  f  OIJTAGETYPE  "  OUTA 
GE  Reported  at:  "  SENSORTYPE  T  "CAUSE:  "  REASON  T  "CURRENT 
CAPABILITY  OF  SENSOR:  "  SENSORCAPAB I L I TY  T  "TIME  OF  OUTAGE: 
"  OUTAGETIME  T  "Restoration  expected  at:  "  TIMETORESTORE  T 
T  T); 

( *  T  h  e  S  Y  S  B  o  a  r  d  i  s  u  p  d  a  t  e  d  t  o  i  n  c  1  u  d  e  a  C  o  rn  rn  e  n  t ) 

THEN  ( R  u  n  R  S  '  S  Y  S  C  o  rn  rn  e  n  t ) ; 

(*  C3  node  reports  are  sent  to  the  CSAnalyst) 

IF  XVAR  =  'NIL 

THEN  ( F:  u  n  R  S  '  G  3  A  n  a  1  y  s  t ) ; 

IF  SYSBoard  :  OIJTSENSOR  -=  O 

THEN  (PRINTOUT  T  T  SYSBoard :  OIJTSENSOR  "  out  of  9  sensor  sit 
es  are  OUT"  T  "with  ZERO  CAPABILITY."  T  T); 

I F  S Y S B o a r d  :  A F F S E N S OR  •••■  =  @ 

THEN  (PRINTOUT  T  T  SYSBoard ; AFFSEN30R  "  out  of  9  sensor  sit 

es  are  AFFECTED"  T  "  with  PARTIAL  CAPABILITY."  T  T); 

I F  S  Y S B o  a r  d  :  0 U  T  T 0  T  A L  -=  0 

THEN  ( P  R I N T  0 U T  T  3 Y S  B  o a r  d : 0  U  T  T  0  T  A  L  "  S  Y  S  re  p o r  t  s  h  a v  e  bee  n 
a c k n o w 1 e d g e d . "  T  "0 u t  o f  t h e s e  re p o r t s  : "  T  T  S Y S B o a r d : 0 U T E M 
E R 6  "  ha v e  bee n  E M E F: G E N C Y  r  e p o r t s  .  "  T  S Y S B o a r d  :0UTSAB0TA G E 
"  have  been  due  to  SABOTAGE,"  T  SYSBoard : OUTTEST  "  have  bee 
n  d u e  t o  T E S T I N G . "  T  s Y S B o a r d :OUTFAILURE  "  h a v e  bee n  d u e  t o 
FAILURE,"  T); 

THEN  ( E  V A  L  S Y S B  o a r  d : C  0 M M  E  N  T ) ; 

( Rule S  e  t  S o u r ce  " L V U  0  .  z  I  [ : .  P  9 B . 3  O " ) 

5  y  *- 
NIL 

58* ( REDO  1 0 0  ) 


oo*\,*  itouncui^  rr'iui  ibs; 

Using  $8YSCheck 

ftuleSet  SYSCheck 

Last  Edited:  3-Oet-S5  1S;0S;1S  by 

Workspace  Class:  Sensors; 

Corap i 1 er  Opt i ons :  ; 

Temporary  Vars:  POINT AG  TAG  MATCHPOINT; 

Control  Structure:  WHILE ALL; 

Iteration  Condition:  T; 

*  *  *  *  + 


( *  G  i  v  e  n  a  1  i  s  t  o  f  C  3  s  i  t  e  s ,  S  E  H  S  0  F:  0  H  E  C  K  u  s  e  s  a  W  h  i  1  e  L  0  0  P 
to  see  what  the  CAPABILITY  of  each  site  is.  One  PARTIAL  deg 
rades  the  STATUS  to  PARTIAL,  and  One  ZERO  degrades  it  to  ZE 
RO .  ALL  of  them  must  he  FULL  for  STATUS=FULL . ) 

{!!>  THEM  (SETO  POINTAG  (CAR  METALIST)) 

(SETQ  MATCHLIST  (EVAL  (CAR  METALIST))); 

(*  The  above  "one  shot  bang"  rules  permits  the  use  of  a  MET 
ALIST  that  contains  all  the  C3  paths  is  tested  and 
e x e c u t e d  o n 1 y  o n c e  here.  0 1 h e r w i s e  MATCHLIST  i s  c o n t i n u all y 
r  e  f  r  e  s h  e  d  a n  d  n e  v e  r  g e  t  s  s m  a  11 e  r  =  Infinite  L  0  0  P ) 

THEN  (SETO  MATCHPOINT  (CAR  MATCHLIST)) 

(SETQ  MATCHLIST  (COR  MATCHLIST)); 

(*  Helps  03 Board  determine  if  AGS  or  BGS  link  affected) 

IF  (GNC  POINTAG)  =  'A 
THEN  T AG* ' AGS; 

IF  (GNC  POINTAG)  =  'B 
THEN  TAG* ' BGS; 

IF  (GETPROP  MATCHPOINT  'CAPABILITY)  =  'FULL 
STATUS  ■--=  'PARTIAL 
STATUS  •-=  'ZERO 
THEN  (SETQ  STATUS  'FULL); 

IF  (GETPROP  MATCHPOINT  'CAPABILITY)  =  'PARTIAL 
STATUS  --=  'ZERO 
THEN  (SETQ  STATUS  'PARTIAL); 

IF  (GETPROP  MATCHPOINT  'CAPABILITY)  =  'ZERO 
THEN  (SETQ  STATUS  'ZERO); 

( *  0 n i^e  a  C 3  p a t h  1  i  a t  has  b een  e x h a u s t  e d :  C 3 B 0 A F: 0  i s  c a  1 1  e 
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(*  Once  a  03  path  list  has  been  exhausted:  CsBijARD  is 
d  to  update  the  status  number  of  each  path.  The  next  C 
h  is  checked  from  METALIST.) 

IF  (CAR  MATCHLIST)  =  'NIL 
THEN  (RunRS  'CSBoard) 

(SETQ  STATUS  'FULL) 

(SETQ  METALIST  (COR  METALIST)) 

(SETQ  MATCHLIST  (EVAL  (CAR  METAL  I  ST  ) ) ) 

(SETQ  POINT AG  (CAR  METALIST)  )  ; 

(*  To  terminate  the  WHILEALL  loop,  a  STOP  condition  is 
a c t i v a t e d  w h e n  all  t h e  C 3  p a t h s  c o n t a i n e d  in  M E T A L I S T 
are  exhausted) 

IF  (CAR  METALIST)  =  'NIL 
THEN  (STOP); 

# o: ( Ru  i  eSetSource  "  6WU8 .  z  I  [ :  ,  Pu8 . 33 " ) 

70* 

NIL 

70* 

N I L 
70* 

NIL 

70* 

NIL 

70* 

NIL 

70* 

N I L 
70* 

NIL 

70* 

NIL 

70* 

NIL 

70* 

NIL 

70* 

NIL 

70* 

NIL 

70* 

NIL 

70* 

NIL 

70* 

NIL 

70*i  REDO  100  'i 


to  o 


us  my  r  aoumiiiem.- 
RuleSet  SYSCornrnent 

Last  Edited:  3-oct-85  18:06:33  Dy 
Workspace  Class:  Reports j 
Compiler  Options:  ; 
Temporary  Vars:  F'CT j 

Control  Structure:  DuALL; 
*  *****  *  * 


(*  SYSCornrnent  examines  the  pattern  of  SYS  reports  recieved 
by  combining  the  number  of  sensors  that  are  OUT  and  the  one 
s  that  are  AFFECTED,  together  with  the  number  of  EMERGENCY 
reports.  These  are  then  set  into  COMMENT  on  the  SYSBoard  al 
ong  with  a  cause.) 

IF  SYSBoard: AFFSENSOR  <  2 
THEN  (SET Q  SNUMBER  4); 

IF  SYSBoard: AFFSENSOR  >=  2 
SYSBoard : AFFSENSOR  <=  3 
THEN  (SET Q  SNUMBER  3); 

IF  SYSBoard: AFFSENSOR  >  3 
S  Y  S  B  o  a  r  d  :  A  F  F  S  E  N  S  0  R  <  =  6 
THEN  (SETQ  SNUMBER  2); 

IF  SYSBoard : AFFSENSOR  >  6 
THEN  (SETQ  SNUMBER  1); 

IF  SYSBoard : OUTSENSOR  =  8 
THEN  (SETQ  F NUMBER  4); 

IF  SYSBoard: OUTSENSOR  =  1 
THEN  (SETQ  F NUMBER  3); 

IF  SYSBoard:OUTSENSOR  >=  2 
SYSBoard : OUTSENSOR  <=  3 
THEN  (SETQ  F NUMBER  2); 

IF  S Y S B o a r d : 0 U T S E N S 0 R  >  3 
THEN  (SETQ  F NUMBER  1); 

( *  T h is  f i r s t  r u n n i n g  o f  C o m b i n a t o rial  c o rn b i n e s  t h e  n u m b e r 
o  f  0 U  T  and  A  F  F  E  C  T  E  0  s e n  s o  r  s ) ; 

THEN  ( R  u  n  R  S  '  C  o  m  b  i  n  a  t  o  r  i  a  1 ) 

( S  E  T  Q  S  N  !J  M  5  E  R  S  U  M  N  U  M  B  E  R )  P  C  T  <• '  N I L ; 


(*  The  percentage  of  EMERGENCY  to  TOTAL  SYS  reports  is  comp 
ared  and  the  FNUMBER  set) 


THEN  PCT+ ( FQUOT I  ENT  SYSBoard : 0UTEMER6  SYSBoard : OUTTOTAL ) ; 

IF  F'CT  <=  .25 

THEN  (SET Q  FNUMBER  4); 

IF  PCT  >  .25 
F'CT  <=  .5 

THEN  (SETQ  FNUMBER  3); 

IF  PCT  >  .5 
PCT  <=  ,75 

THEN  (SETQ  FNUMBER  2); 

IF  PCT  >  .75 

THEN  (SETQ  FNUMBER  1); 

(*  Default  condition  when  reports  <  4  set  FNUMBER  3) 

IF  SYSBoard: OUTTOTAL  <  4 
THEN  (SETQ  FNUMBER  3) ; 

(*  Second  COMBINATORIAL  combines  sensor  OUT  numbers  as  SNUff 
BEF:  and  Emergency  reports  as  FNUMBER) 

THEN  ( R u n R S  '  C o rn b i n a t o rial )  ; 

(*  Cause  established,  based  on  which  one  is  greater.  Two  ti 
e  results  in  joint  cause.  All  tie  is  UNCLEAR  cause) 

IF  S  Y  S  B  o  a  r  d  :  0  U  T  S  A  B  0  T  A  G  E  >  S  Y  S  B  o  a  r  d  ;  0  U  T  F  A I L  U  R  E 
S  Y  S  B  o  a  r  d  :  0  U  T  S  A  B  0  T  A  G  E  >  S  Y  S  B  o  a  r  d  :  0  U  T  T  E  S  T 
THEN  (SETQ  CAUSE  1  SABOTAGE) ; 

I F  S Y S B o a r d  :  OIJTFA I L IJ R E  >  S Y S B o a r d  :  0 U T T E S T 

S  Y  S  B  o  a  r  d  :  0  U  T  F  A I L  U  R  E  >  S  Y  S  B  o  a  r  d  :  0  U  T  S  A  B  0  T  A  6  E 
THEN  (SETQ  CAUSE  ’ FAILURE) ; 

I F  S  Y  S  B  o  a  r  d  :  0  IJ  T  T  E  S  T  >  S  Y  S  B  o  a  r  d  :  0  U  T  F  A I L  IJ  R  E 
S  Y  s  B  o  a  r  d  :  0  IJ  T  T  E  S  T  >  S  Y  S  B  o  a  r  d  :  0  IJ  T  S  A  B  0  T  A  G  E 
THEN  (SETQ  CAUSE  ’ TEST) j 


I F  S  Y  S  B  o  a  r  d  :  0  IJ  T  S  A  B  0  T  A  G  E  =  S  Y  S  B  o  a  r  d  :  0  U  T  F  A I L  IJ  R  E 
S  Y  S  6  o  a  r  d  :  0  IJ  T  S  A  B  0  T  A  G  E  >  S  Y  S  B  o  a  r  d  :  0  U  T  T  E  S  T 
then  (SETQ  CAUSE  '"SABOTAGE  and  FAILURE"); 


IF  S Y S B o a r d : 0 UTFAILURE  =  S Y S B o a r d : 0 U T T E S T 


into  UAuat  "SrtDuittot  ana  r  ttiLurct.  •  j ; 


IF  SYSBoard : OUTFAILURE  =  SYSBoar d : 0UTTE3T 
SYSBoard : OUTFAI LURE  >  SYSBoard : OUT SABOTAGE 
THEN  (SETQ  CAUSE  '"TEST  and  FAILURE" ) ; 

IF  SYSBoar d : OUTSABOTAGE  =  SYSBoard : OUTTEST 
SYSBoard :  OUTSABOTAGE  >  SYSBoar  d  :  QIJTFA I  LURE 
THEN  (SETQ  CAUSE  '"TEST  and  SABOTAGE" ) ; 

IF  SYSBoard: OUTSABOTAGE  =  SYSBoard : OUTTEST 
SYSBoard : OUTSABOTAGE  =  SYSBoard : OUTFA I  LURE 
THEN  (SETQ  CAUSE  ' UNCLEAR) j 

f*  Finally,  the  SYSBoard  is  filled  with  a  COMMENT  and  an  EX 
PN UMBER) 


IF  SUM NUMBER  =  4 

THEN  S Y S B o a r d  :  E X P N LI M BER*4 


orts 


SYSBoard : COMMENT* ' (PRINTOUT  T  T  " 
R e  c  e i v e  d .  "  T  "0  V E  R  A  L  L  S  Y S  S  T  A  T U S : 


F  e  w  S 
VERY 


S  EMERGENCY 
GOOD."  T) ; 


Rep 


IF  SUM NUMBER  =  3 

THEN  S Y S  B o a r  d : E  X  P N U  M  B  E  R  *  3 

S Y S B o a r d  :  C 0 M M ENT*  '  ( P R I N T 0 IJ T  T  T  " S o rn e  S Y S 
e p o r  t s  Recei v e d  .  "  T  "0 V E R A L L  S Y S  S T A T IJ S  :  6 0 0 D  .  " 


EMERGENCY  R 
T)j 


IF  SUM NUMBER  =  2 

THEN  S  Y  S  B  o  a  r  d  :  E  X  P  N  U  M  B  E  R  *  2 

S Y  S B o a r  d : C  0  M  M  ENT*  ' ( P  R I N TOUT  T  T  " M  A  N Y  S Y  S 
e p o r t s  Recei v e d . "  T  " 0 V ERALL  S Y S  S TATU S :  P 0 0 R . " 
Cause:  "  CAUSE  T){ 


EMERGENCY  R 
T  "Leading 


IF  SUMNUMBER  =  1 

THEN  S  Y  S  B  o  a  r  d  :  E  X  P  N  LI  M  B  E  R  *  1 


S  Y  S  B  o  a  r  d  :  C  0  M  M  ENT*  '  ( P  R I N  T  0  IJ  T  T  T 
N  C  Y  R E  P 0 R T  S  Recei v e  d . "  T  " 0 V  ERALL  S  Y S 
"Lea  d  i  n  q  C  a  u  s  e  :  "  C  A  IJ  S  E  T ) ; 

#  &  ( Rule  S  e  t  S  o  u  r  c  e  "  G  W  U  O  .  z  I  [  :  P  G  8 . 3  4 " ) 
79* 

NIL 


"VERY 

STATU 


MANY  SYS  EMERGE 
:  VERY  POOR."  T 


79* 

NIL 


79* 

NIL 

79* 

NIL 

79* 

NIL 

79* (REDO  100) 


^o*^*  i  dt  ye i-oneuK  m\u  ibs; 

Using  $TargetCheck 

RuleSet  TargetCheck 

Last  Edited;  3-  o  ct-  85  1 8;  42;  27  t'  y 

Workspace  Class:  Boards; 

Compiler  Options:  ; 

Temporary  Vars:  TGTWILLDETECT  TGTCLOSEDETECT  TGTFARDETECT 

TLIST  TF'QINT  TRANCE  THE  AGING  TARGET  THE  AD  IFF  MARK  TLIST  RA 
H GEM ARK  MAXRANGE  LSTYPE  RANGEDIFF; 

C  o  n  t  r  o  1  S  t  r  u  c  t  u  r  e  :  W  H I L  E  A  L  L ; 

Iteration  Condition:  T; 


•!'!!>  THEN  TLIST* (COR  TAGLIST) 

T  R  E  N  D  B  o  a  r  d  :  W I L  L  N  U  M  B  E  R  *  0 
T  R  E  N  D  B  o  a  r  d  :  C  L  0  S  E  N  U  M  B  E  R  *  0 
T  R  E  N  D  B  o  a  r  d  :  F  A  R  N  U  M  B  E  R  *  0 
TRENDBoard : W I LLDETECT  *N I L 
TRENDBoard : CL08EDETECT*NIL 
TRENDBoard : FAROETECT*NIL 
L  S  T  V  P  E  *  M  A  T  C  H  B  o  a  r  d : LAUNCHERTYPE; 

IF  (CAR  TLIST)  =  'NIL 

THEN  TRENDBoard : W I LLDETECT+TGTW I LLDETECT 

T  R  E  N  D  B  o  a  r  d  :  C  L  0  S  E  D  E  T  E  C  T  *  T  G  T  C  L  0  S  E  D  E  T  E  C  T 
TRENDBoard : FARDETECT*TGTFAROETECT 

(PRINTOUT  T  "This  is  W I LLDETECT:  "  TGTWILLDETECT  T 
"This  is  CLOSEOETECT:  "  TGTCLOSEDETECT  T 
"THIS  is  FARDETECT:  "  TGTFARDETECT  T 
"This  is  WILL NUMBER:  "  TRENDBoard : W I LL NUMBER  T 
"this  is  CLOSENIJMBER:  "  TRENDBoard :  CLOSE  NUMBER  T 
"This  is  FARNUMBER:  "  TRENDBoard : FARNUMBER  T) 
(STOP) ; 

THEN  TPOINT* (CAR  TLIST) 

TARGET* (CAR  TPOINT) 

T R A N G E * ( C A D D R  TPOINT) 

THEAD I NG*( CADR  TPOINT) 

MARK* ’ T  RANG EM ARK* 1 T 

THEADIFF*(ABS  (DIFFERENCE  THEAD I NG  HEADING)); 

IF  LSTYPE=  1  TYF'El 

THEN  MAXRANGE *1325; 

IF  LSTYPE  *  ' TYPE 2 

THEN  MAXRANGE *2650 ; 


THEN  RANGED  I F F * ( D I FFERENCE  MAXRANGE  TRANGE  ); 


THEN  RANGED  IFF* (DIFFERENCE  MAXRANGE  TRANGE)  ; 


IF  RANGED  IFF  <  8 
THEN  RANGEMARK* ‘  NIL  j 

IF  THEADIFF  <=  1 
RANGEMARK  =  ' T 

THEN  T G T W I L L D E T E C T * ( A P P E N D  (LIST  TARGET)  TGTWILLDETECT )  M 
ARK* 'NIL 

TRENDBoard  :  WILLNIJMBER*(PLIJS  TRENDBoard  :  WILLNUMBER  1) ; 

IF  THEADIFF  <=  5 
MARK  =  'T 
RANGEMARK  =  'T 

THEN  TGTCLi:iSEDETECT*( APPEND  (LIST  TARGET)  TGTCLOSEDETECT )  T 
R E N D B o a r d  :  C L 0 S E N LI M B E R *  (  P L IJ S  T F: E N D B o a r  d  :  C LOSE N U M BEF:  1 )  M A R 
K* ' NIL j 

IF  THEADIFF  <=  18 
MARK  =  *T 
RANGEMARK  =  'T 

THEN  TGTFARDETECT*( APPEND  (LIST  TARGET)  TGTFARDETECT ) 

T R E N D B o a r d  :  F A R N U M B E R *  ( P L U S  T R E N D B o a r d  :  F  A R N IJ M BEF:  1 )  ; 


THEN  TL I  ST* (COR  TLIST) 
#■<■<  (  R  u  1  e  S  e  1 3  o  u  r  c  e  "6  r  U  S 
29* 

NIL 

29* 

N I L 
29* 

NIL 

29* 

NIL 

29* 

NIL 

29* 

NIL 

29* 

N I L 
29* 

NIL 

29* 

NIL 


29* 

NIL 


29* 

NIL 

29* ( REDO  1 ) 


I[  :  .  ri59 . 75"  ) 


(TIMEGHECK 

[LAMBDA  NIL  (+■  edited;  ••12-Aug-S5  16:1 7") 

(PROG  (MATCHPOINT  MATCHLIST  READ) 


(*  TIME  CHECK  takes  the  EVENT  LIST  and  checks  each  event  one  by 
one;  if  the  AD  si  event  has  not  been  matched  to  the  ADS  2  event;  it  checks  to  see 
if  the  PRESENTIME  (which  is  taken  off  the  most  recent  A.DS1,  ADS 2  or  BSS  report 
)  exceeds  the  predicted  time  of  arrival  of  the  ADS 2  report  by  more  than  10  minute 
s,  For  each  event  that  fullfils  this  criterion;  TIME  CHECK  asks  the  user  if  he  wants  it 
deleted  from  the  eventlist  or  to  keep  it  active.) 


(SETQ  MATCHLIST  EVENTLIST) 

(+  If  EVENTLIST  is  NIL,  TIME  CHE 

CK  just  returns) 

LOOP (CO NO 

((NULL  (CAR  MATCHLIST)) 

(RETURN))) 

(SETQ  MATCHPOINT  (CAR  MATCHLIST)) 

(SETQ  MATCHTIME  (GETPROP  MATCHPOINT 

(QUOTE  PIT  I ME) ) ) 

[CO  NO 

((NOT  (NULL  MATCHTIME)) 

(CO  NO 

((GREATERP  CABS  (DIFFERENCE  PRESENTIME 

MATCHTIME)) 

(QUOTE  1000)) 

(+  In  the  SIMCOPE  simulation  10 

00  represents  10  minutes  and  0  seconds) 

(printout  T  T 

"PRESENT  TIME  is  currently:  " 
PRESENTIME  T 
"The  ADS'2  Report,  for:  " 
MATCHPOINT  "  was  due  at  " 
MATCHTIME  "  hours."  T  T 
"Since  the  A 082  Report  is  overdue  by 
m  o  r  e  t  h  a  n  1 0  rn  i  n  u  t  e  s ,  " 

T 

"SENTINEL  would  like  to  delete  " 
MATCHPOINT 

"  f  r o rn  t he  1  i  s t  o f  a c t  i  v e  E v e n t s  , " 

T  T 

"  I  f  y  o  u  c  o  n  c  u  r  t  y  p  e  T ,  o  t  h  e  r  w  i  s  e  t  y  p  e  NIL  f  o  1 1  o  w  e  d  b  y  a  c  a  r 
riaqe  return  to  keep  " 

MATCHPOINT  "  active."  T) 

(SETQ  READ  (RATOM  NIL  NIL)) 

(COND 

((NULL  READ) 

(RETURN)) 

(T  (SETQ  EVENTLIST  (REMOVE  MATCHPOINT 

EVENTLIST)) 


(SETQ  READ  (RATOM  NIL  NIL)) 

(CO  NO 

((NULL  READ) 

(RETURN)) 

(T  (SETQ  EVENTLIST  (REMOVE  MATCHPOINT 

EVENTLIST)) 

<*  If  TIMECHECK  is  invoked  from  EVENT  CHECK  due  to  a  spurious 
DS2  report,  the  matchpoint  must  be  removed  from  the  TESTLIST  so  that  the  user 
may  not  be  able  to  match  an  eliminated  event,) 


(COND 

((NOT  (NULL  TESTLIST)) 

(SETQ  TESTLIST 

(REMOVE  MATCHPOINT  TESTLIST] 
(SETQ  MATCHLIST  (CDR  MATCHLIST)) 

(60  LOOP]) 

(TIMECHECK) 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

NIL 

85* 

HU. 

8  5  * ( RED  0  100 ) 


1  *  *,u 


'?  ".w ,y\vyv.wj‘  ".VJ'  rf  *J  ~-,-V  ■’J.aWWWflW.V.W  U,-V‘-'  1TJ  y:  ~->V  W  wrvxaiT  tf  ’  »  •  V  n  n 


us  mg  *icomtru 

RuleSet  TESTHYPO 

Last  Edited:  10- Oct- 85  17; 45; 51  by 

Workspace  Class:  Boards ; 

Compiler  Options:  ; 

Temporary  Vars:  TNUMBER  RNUMBER  MARK; 

Control  Structure:  DOALL; 

+  + 


(*  TEST  is  a  hypothesis  rule  set  that  provides  a  "textbook" 
example  of  what  a  TEST  event  would  result  in.  This  examp  1 
e  can  then  be  compared  to  the  feature  set  of  the  event  in  q 
uestion  and  a  hypothesis  selected.) 

THEN  TNUMBER*3  RNUMBER *0  MARK* 1  NIL; 

(*  TNUMBER  records  the  number  of  factors  that  contribute  to 
THREAT,  RNUMBER  number  of  rules  triggered.  TNUMBER  is  set 
to  3  at  outset  and  counted  down.) 

IF  (GETPROP  EVENTMATGH  ’P1IRTYPE)  =  ’ TYPE1 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATGH  'P1IRTYPE)  -  1  TYPE 2 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (Get Value  IntelBoard  ' INTELCONDITION)  =  'TEST 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATGH  ' P1G0NF IDENCE )  =  'HIGH 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATGH  ' P1C0NF IDENCE)  =  'EXTHIGH 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  MATCHBoard : LAUNCHSI TE  ~=  'UNKNOWN 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATGH  ’P1SENS0R)  >=  7 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATGH  ' P2TYPE)  =  'MATCH 
THEN  RNUMBER* (PLUS  RNUMBER  l)j 

IF  (GETPROP  EVENTMATGH  ' P2SENS0R)  >=  7 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATGH  ' P2C0NF IDENCE)  =  'HIGH 
THEN  RNUMBER* (PLUS  RNUMBER  1); 


intN  KNumDtrc^HLus;  KNurnot*  I ) ; 

IF  (GETPROP  EVENTMATCH  ‘ P2C0NFIDENCE) 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  MATCHBoard : EXPNUMBER  >=  3 
THEN  RNUMBER* (PLUS  RNUMBER  1) 

TNUMBER* (SUB1  TNUMBER) ; 

IF  DetectBoard : EXPNUMBER  <  3 
THEN  RNUMBER* ( PLUS  RNUMBER  2) 

TNUMBER* (SUB1  TNUMBER ) ; 

IF  TRENDBoard: EXPNUMBER  >=  3 
THEN  RNUMBER*(PLUS  RNUMBER  1) ; 

IF  TRENDBoard: HI VALNUMBER  <=  2 
THEN  RNUMBER* (PLUS  RNUMBER  2) 

TNUMBER* (SUB1  TNUMBER) ; 

THEN  (SETO  NOTHREATNUM  TNUMBER) 

(SETO  TESTNUM  RNUMBER) ; 

*&( Ru i eSetSource  " SPU@ . z I [ :  . ; d9 . 7 "  ) 
91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* 

NIL 

91* (REDO  ISO) 


=  1  EXTHIGH 


us  my  *  i  reriUL.rieuK 

RuleSet  TrendCheck 

Last  Edited;  3-Oct-S5  1S;43;1S  by 

Workspace  Class:  Boards; 

Compiler  Options:  ; 

Temporary  Vans:  FIRSTCONF  SEC0N0C0NF  UPNUMBER  MARK; 

Control  Structure:  DOALL; 

******** 


(*  TrendCheck  weighs  the  evidence  from  3  factors 
LEVELS,  IR  TYPE  and  SENSOR  RATING  from  AD8-1  to 
OS-2  Report  and  attempts  to  discern  whether  the 
evidence  is  going  up  or  down.) 


CONFIDENCE 
the 


Trend 


•or 


Turn  iir.nnur.  rr.  .  r* 


mu'i  urriuiUDCft4-0  i 

(*  To  make  it  easier  to  compare,  first  P1C0NFIDENCE  and  P2C 
ONFIOENCE  from  the  EVENT  LIST  are  mapped  to  numbers,) 


IF  (GETPROP  EVENTMATCH 
THEN  FIRSTC0NF*5; 

' P1C0NF I DENCE ) 

IF  (GETPROP  EVENTMATCH 
THEN  F I  RSTC0NF*4 ; 

' P1C0NF I DENCE ) 

IF  (GETPROP  EVENTMATCH 
THEN  FIRSTCONF+3; 

'P1C0NFI DENCE) 

IF  (GETPROP  EVENTMATCH 
THEN  FIRSTCONF+2; 

'  F'lCOHF  I  DENCE ) 

IF  (GETPROP  EVENTMATCH 
THEN  FIRSTCONF*!; 

'P1CONFI DENCE) 

IF  (GETPROP  EVENTMATCH 
THEN  SEC0NDC0NF*5; 

'P2C0NFI DENCE) 

IF  (GETPROP  EVENTMATCH 
THEN  SEC0NDC0NF*3; 

'  P2C0NFI DENCE) 

IF  (GETPROP  EVENTMATCH 
THEN  SEC0NDC0NF+4; 

'P2C0NFI DENCE) 

IF  (GETPROP  EVENTMATCH 
THEN  SEC0NDC0NF*2 ; 

'P2C0NFI DENCE) 

IF  (GETPROP  EVENTMATCH 
THEN  SECONDCONF*!; 

'P2C0NFI DENCE) 

'EXTHIGH 

'HIGH 

‘MIXED 

'LOW 

'  EXTLOW 

'EXTHIGH 

'MIXED 

'HIGH 

'  LOW 

'  EXTLOW 


",  3= 


(*  Here  they  are  compared,  in  case  of  tie,  TREND  is  UP.) 


IF  SECONDCONF  >»  FIRSTCONF 
THEN  UPNUMBER*(PLUS  UP  NUMBER  1) ; 

(*  The  Infrared  Type  TREND  takes  advantage  of  the  typing  of 
AOS-2  Feature  Set  into  MATCH,  MISMATCH,  NOMATCH.  Only  way 
to  get  DOWN  trend  is  to  get  MISMATCH  or  a  MATCH  on  an  Indis¬ 
tinct  or  Unknown  ADS-1  reading.) 

IF  (GET PR OP  EVENTMATCH  'P1IRTYPE)  =  'INDISTINCT 
(GETPROP  EVENTMATCH  ‘ P2TYPE)  =  'MATCH 
THEN  UPNUMBER* (SUB1  UP NUMBER ) ; 

IF  (GETPROP  EVENTMATCH  'P1IRTYPE)  =  'UNKNOWN 
(GETPROP  EVENTMATCH  ' P2TYPE)  =  'MATCH 
THEN  UPNUMBER*(SUB1  UP NUMBER ) ; 

IF  (GETPROP  EVENTMATCH  ' P2TYPE )  =  'MATCH 
THEN  UPNUMBER*(PLUS  UP NUMBER  1) ; 

IF  (GETPROP  EVENTMATCH  ' P2TYPE )  =  ‘NOMATCH 
THEN  U P N U M B E F> ( P L U S  UP NUMBER  1); 


( *  S  E  N  S  0  R  R  a  t  i  n  g  s  c  a  n  b  e  c  o  rn  p  a  r  e  d 
are  a  1  r  e  a  d  y  n  u  rn  b  e  r  s .  TIE  i  s  a  n  U  P 
IF  (GETPROP  EVENTMATCH  ' P2 SENS OR) 
1 SENSOR ) 

THEN  IJ P N U M B E R <■  ( P L U S  U p N U M B E R  In¬ 


directly  since  they 
vote. ) 

>=  (GETPROP  EVENTMATCH 


’P 


(*  Now  the  results  are  interpreted,  COMMENT  and  EXP NUMBER 
on  the  TRENDBoard  are  set.) 


IF  II PN UMBER  =  3 

THEN  TRENDBoard : EXPNUMBER*4 

TRENDBoard  :  COMMENT* '  (PRINTOUT  T  "Trend  of  Evidence  is 
POSITIVELY  UP"  T,i ; 


IF  UP NUMBER  =  2 
THEN  TRENDBoard :  EXPNUMBER*3 

TRENDBoard  :  COMMENT * '  ( PF: I NTOUT  T  "  T rend  of  Ev  i dence  i s  ; 
UP  "  T); 


IF  IJPN UMBER  =  1 
THEN  TRENDBoard : EXF'NUMBER*2 

TRENDBoard: COMMENT*' (PRINTOUT  T  "Trend  of  Evidence  is: 
DOWN  "  T )  • 

IF  UP NUMBER  =  a 
THEN •TRENDBoard : EXF'NUMBER*! 

TRENDBoard: COMMENT*’ (PRINTOUT  T  "Trend  of  Evidence  is: 
POSITIVELY  DOWN"  T)j 


us  mu  turmnuwn 

RuleSet  UNKNOWN 

Last  Edited:  3-oct-ss  1 3:35:5©  by 

Workspace  Class:  Boards; 

Compiler  Options:  ; 

Temporary  Vars:  TNUMBER  RNUMBER  MARK; 

Control  Structure:  DOALL; 

jf :  +  Jf:  :f-  ?+  :f  *  * 


(*  UNKNOWN  is  a  hypothesis  rule  set  that  provides  a  "t 

extbook"  example  of  what  an  UNKNOWN  event  is.  This  examp 
le  can  then  be  compared  to  the  feature  set  of  the  event  in 
question  and  a  hypothesis  selected.) 

THEN  TNUMBER*3  R NUMBERS  MARK*  'NIL; 

(*  TNUMBER  records  the  number  of  factors  that  contribute  to 
THREAT,  RNUMBER  number  of  rules  triggered.  TNUMBER  is  se 
t  to  3  and  then  counted  down  when  rules  say  so.) 

IF  (GETF'ROP  EVENTMATCH  '  P1IRTVPE)  =  ‘INDISTINCT 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  ( GETF'ROP  EVENTMATCH  'PlIRTVF'E)  =  ‘UNKNOWN 
THEN  RNUMBER* (PL US  RNUMBER  i); 

IF  (Get Value  IritelBoard  '  INTELCONDITION)  =  ‘GREEN 
THEN  RNUMBER* (PLUS  RNUMBER  i); 

IF  (GETF'ROP  EVENTMATCH  ‘  F'ICGNFIDENCE)  =  'LOW 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETF'ROP  EVENTMATCH  '  F'ICONFIDENCE)  =  ‘EXTLOW 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  MATCHBoard : LAUNCHSITE  =  'UNKNOWN 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETF'ROP  EVENTMATCH  '  P1SENS0R)  <=  5 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETF'ROP  EVENTMATCH  ‘  P2TYPE)  =  'MISMATCH 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

(*  Sensor  Map  takes  the  P2SENS0R  rating  and  returns  it  to  its 
constituent  parts,  Sensor  Confidence  and  Capability) 

THEN  ( SET Q  SENSORNUM  (GETF'ROP  EVENTMATCH  '  P2SENS0R) ) 

(RuriRS  ’SensorMap); 


intN  KNUfilBt.rcM.PLUS  KNUMBLK  I )  ; 


(*  Sensor  Map  takes  the  P2SEN30R  rating  arid  returns  it  to  its 
constituent  parts,  Sensor  Confidence  and  Capability) 

THEN  (SETQ  SENSORNUM  (GETPROP  EVEHTMATCH  1 P2SENS0R) ) 

( RunRS  ' SensorMap ) ; 

IF  SENSORCONF  ~=  ‘HIGH 

THEN  RNUMBER*(PLUS  RNUMBER  1); 

IF  SENSORCAP  -=  ‘FULL 

THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  ( GETPROP  EVEHTMATCH  ‘ P2C0NFIDENCE)  =  'LOW 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVEHTMATCH  ' P2C0HFIDENCE)  =  ' EXTLOW 

THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  MATCHBoard  :  EXF'NUMBER  <=  2 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

(*  When  Launchsite  heading  is  unknown  it  appears  as  a  " 
X  X  X "  o  n  t  h  e  A  0  S  -  2  m  e  s  s  a  g  e  . ) 

IF  MATCHBoard : LSHEAGING  =  ‘XXX 
THEN  RNUMBER* (PLUS  RNUMBER  2); 

IF  TRENDBoard:  EXF’NUMBER  <=  2 
THEN  RNUMBER* (PLUS  RNUMBER  2); 

THEN  ( SET  Q  U  N  K  N  0  W  N  N  U  M  R  N IJ  M  B  E  R )  j 
#&(  Ru  i  eSetSour ce  "  SPUO  .  1 1  [ :  .  j  d'9 . 9 " ) 

96* 

NIL 

96* 

NIL 

96* 

NIL 

96* 

NIL 

96* 

NIL 

96* 

NIL 

96* 

NIL 

96* 

NIL 

96*  (REDO  10t3) 


us  my  *unnc<MJL. vcu 

RuleSet  UNRESOLVED 

Last  Edited;  3-Oct-S5  13;37;0S  by 

Workspace  Class:  Boards ; 

Compiler  Options:  ; 

Temporary  Vars:  TNUMBER  RNUMBER  MARK j 

Control  Structure:  DOALL; 

******** 


(*  UNRESOLVED  is  a  hypothesis  rule  set  that  provides  a  "tex 
tbook"  example  of  what  an  UNRESOLVED  event  is.  This  examp 
le  can  then  be  compared  to  the  feature  set  of  the  event  in 
question  and  a  hypothesis  selected.) 

THEN  TNUMBER *3  R NUMBERS  MARK*  'NIL; 

(*  TNUMBER  records  the  number  of  factors  that  contribute  to 
THREAT,  RNUMBER  number  of  rules  triggered:  TNIJMBFR  is  s* 
t  tu  z<  3 ri u  trier!  Guuriteu  uuwri  wrier!  rules  say  50,  ) 

IF  (GETPROP  EVENTMATCH  'P1IRTYPE)  =  'TYPE! 

THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  'P1IRTYPE)  =  ' TYPE2 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  ' P1C0NFIDENCE)  =  ’LOW 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  ' P1C0NFIDENCE)  =  ' MIXED 
THEN  RNUMBER* (PLUS  RNUMBER  1) ; 

IF  MATCHBoard : LAUNCHSITE  ~=  ’UNKNOWN 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

IF  (GETPROP  EVENTMATCH  ’P1SENS0R)  <  7 
(GETPROP  EVENTMATCH  ’P1SENS0R)  >=  4 
THEN  RNUMBER* (PLUS  RNUMBER  1) ; 

IF  (GETPROP  EVENTMATCH  ' P2TVPE)  =  ’NOMATCH 
THEN  RNUMBER* (PLUS  RNUMBER  1); 

(*  P2SENS0R  is  broken  down  into  its  constituent  parts:  a 

SENSOR  Confidence  and  a  Capability.) 

THEN  (SETQ  SENSORNUM  (GETPROP  EVENTMATCH  ' P2SENS0R) ) 

(RunRS  ’Sensor Map); 


mtN  StNSUKNUfn  ^btlFKUH  t  VtN  I  tflft  I  Utl  KZStNSUf''.  )  ) 

(RunRS  * SensorMap); 

IF  SENSORCONF  =  1  MEDIUM 
THEN  RNUMBER* (PLUS  R NUMBER  1 ); 

IF  8ENS0RCAP  =  ’PARTIAL 
THEN  RNUMBER*(PLU8  RNIJMBER  1); 

IF  ( GETPROP  EVENTMATCH  ‘ P2C0NFIDENCE)  =  ‘LOW 
THEN  RNUMBER* (PLUS  RNIJMBER  1); 

IF  (GETPROP  EVENTMATCH  ' P2C0NFI0ENCE)  =  ’MIXED 
THEN  RNUMBER* (PLUS  RNUMBER  l)j 

IF  MATCHBoard : EXPNUMBER  <=  2 
THEN  RNUMBER* (PLUS  RNUMBER  1) 

T HUMBERT ( SUB1  T NUMBER ) ; 

IF  DetectBoard: EXPNUMBER  <=  3 
DetectBoard: EXPNUMBER  >=  2 
THEN  RNUMBER* (PLUS  RNUMBER  1) 

TNUMBER* (8UB1  TNUMBER) ; 

IF  TRENDBoard: EXPNUMBER  <=  3 
TRENDBoard : EXPNUMBER  >=  2 
THEN  RNUMBER* (PLUS  RNIJMBER  2); 

IF  TRENDBoard: HI VALNUMBER  <=  2 
THEN  RNUMBER* (PLUS  RNUMBER  2) 

T  N I J  M  BER* ( S U  BIT  N  U M B E  R ) ; 


THEN  (SETO  NOTHREATNUM  TNUMBER) 

(SET Q  U N R E S 0 L V E D N U M  R N U MBER) ; 
#&( Ru 1 eSetSource  " SPU0 . z I [ : , ; d9 . 10 " ) 
1* 

NIL 

1* 

NIL 

1* 

NIL 

1* 

NIL 

1* 

NIL 

1* 

NIL 

1* 

NIL 

1* C  RS232 . PR  I  NT  ( WH I CHW )  T ) 
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